From 2e812f1622e1d9a207a416945cb6b8be7c718c0e Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Tue, 13 Jul 2010 09:38:52 -0600 Subject: [PATCH] macro-stepper: re-enabled block test original commit: 4693abf074c2dfbabd3d55ff75a2e34d747673e7 --- collects/tests/macro-debugger/tests/syntax-basic.rkt | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/collects/tests/macro-debugger/tests/syntax-basic.rkt b/collects/tests/macro-debugger/tests/syntax-basic.rkt index 6e113c0..2802799 100644 --- a/collects/tests/macro-debugger/tests/syntax-basic.rkt +++ b/collects/tests/macro-debugger/tests/syntax-basic.rkt @@ -212,15 +212,13 @@ (block->letrec (lambda () (letrec-values ([(x) 'a]) 'b))) (rename-letrec-values (lambda () (letrec-values ([(x) 'a]) 'b)))] #:same-hidden-steps) - #| (testK "define-values after expr" (lambda () 'a (define-values (x) 'b) 'c) [#:steps (rename-lambda (lambda () 'a (define-values (x) 'b) 'c)) (block->letrec (lambda () (letrec-values ([() (begin 'a (#%app values))] [(x) 'b]) 'c))) (rename-letrec-values (lambda () (letrec-values ([() (begin 'a (#%app values))] [(x) 'b]) 'c)))] - #:same-hidden-steps) - |#] + #:same-hidden-steps)] [#:suite "Top-level begin"