macro-stepper: re-enabled block test

original commit: 4693abf074c2dfbabd3d55ff75a2e34d747673e7
This commit is contained in:
Ryan Culpepper 2010-07-13 09:38:52 -06:00
parent 4822a64932
commit 2e812f1622

View File

@ -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"