From 7909426f605fceb95ff836e266e62b8cdf96976e Mon Sep 17 00:00:00 2001 From: John Clements Date: Tue, 27 May 2008 20:21:17 +0000 Subject: [PATCH] fussing with test results svn: r9985 --- collects/stepper/private/reconstruct.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/stepper/private/reconstruct.ss b/collects/stepper/private/reconstruct.ss index fdf1bc5569..26142d84f0 100644 --- a/collects/stepper/private/reconstruct.ss +++ b/collects/stepper/private/reconstruct.ss @@ -148,9 +148,7 @@ (define (skip-step? break-kind mark-list render-settings) (case break-kind [(result-value-break) - (and (pair? mark-list) - (let ([expr (mark-source (car mark-list))]) - (stepper-syntax-property expr 'stepper-hide-reduction)))] + #f] [(result-exp-break) ;; skip if clauses that are the result of and/or reductions (let ([and/or-clauses-consumed (stepper-syntax-property (mark-source (car mark-list)) 'stepper-and/or-clauses-consumed)]) @@ -167,6 +165,7 @@ (not (render-settings-lifting? render-settings)))] [(expr-finished-break define-struct-break late-let-break) #f])) + ;; skip-redex-step : mark-list? render-settings? -> boolean? (define (skip-redex-step? mark-list render-settings) (define (varref-skip-step? varref)