www

commit 2e812f1622e1d9a207a416945cb6b8be7c718c0e
parent 4822a649324590d4e7dc3b4d296ab528a7e5abb9
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Tue, 13 Jul 2010 09:38:52 -0600

macro-stepper: re-enabled block test

original commit: 4693abf074c2dfbabd3d55ff75a2e34d747673e7

Diffstat:
M
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
@@ -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"