From 724313c766b6aff92858a6d2699f0bd61a016e6b Mon Sep 17 00:00:00 2001 From: John Clements Date: Wed, 20 Oct 2010 12:03:22 -0700 Subject: [PATCH] back to old style, not sure why (cherry picked from commit dfe6f78d805a99a79465c3d0fcf1653f41283b23) --- collects/test-engine/racket-tests.rkt | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/collects/test-engine/racket-tests.rkt b/collects/test-engine/racket-tests.rkt index 9a9ca79375..a90d46e1cc 100644 --- a/collects/test-engine/racket-tests.rkt +++ b/collects/test-engine/racket-tests.rkt @@ -106,7 +106,14 @@ #'test-engine)))))))) 'stepper-skipto (append skipto/third ;; let - skipto/third skipto/third ;; unless (it expands into (if (let-values () ...)) + skipto/third skipto/second + ;; something funny going on here; I can't see how Mike's + ;; fix could ever have worked. Possibly related: this + ;; file is still written in the mzscheme language? + ;; ... no, that doesn't seem to pan out. + ;; okay, I really don't understand why, but it appears + ;; that in this context, 'when' is still expanding + ;; into a begin, rather than a (let-values () ...) skipto/cdr skipto/third ;; application of insert-test '(syntax-e cdr cdr syntax-e car) ;; lambda )))