From fd5e9d4d6342933f0973b080a1bbf28c60107f1f Mon Sep 17 00:00:00 2001 From: Mike Sperber Date: Tue, 19 Oct 2010 11:56:24 +0200 Subject: [PATCH] Unbreak the stepper on `check-expect'. All kinds of things expand into (let () ...), so all kinds of things break. --- collects/test-engine/racket-tests.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/test-engine/racket-tests.rkt b/collects/test-engine/racket-tests.rkt index f2154c25e2..9a9ca79375 100644 --- a/collects/test-engine/racket-tests.rkt +++ b/collects/test-engine/racket-tests.rkt @@ -106,7 +106,7 @@ #'test-engine)))))))) 'stepper-skipto (append skipto/third ;; let - skipto/third skipto/second ;; unless (it expands into a begin) + skipto/third skipto/third ;; unless (it expands into (if (let-values () ...)) skipto/cdr skipto/third ;; application of insert-test '(syntax-e cdr cdr syntax-e car) ;; lambda )))