suzanne.soy/macro-debugger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

macro-stepper: re-enabled block test

Browse Source 
original commit: 4693abf074c2dfbabd3d55ff75a2e34d747673e7
This commit is contained in:
Ryan Culpepper 2010-07-13 09:38:52 -06:00
parent 4822a64932
commit 2e812f1622
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/macro-debugger/tests/syntax-basic.rkt
View File

@ -212,15 +212,13 @@
(block->letrec (lambda () (letrec-values ([(x) 'a]) 'b))) (block->letrec (lambda () (letrec-values ([(x) 'a]) 'b)))
(rename-letrec-values (lambda () (letrec-values ([(x) 'a]) 'b)))] (rename-letrec-values (lambda () (letrec-values ([(x) 'a]) 'b)))]
#:same-hidden-steps) #:same-hidden-steps)
#|
(testK "define-values after expr" (testK "define-values after expr"
(lambda () 'a (define-values (x) 'b) 'c) (lambda () 'a (define-values (x) 'b) 'c)
[#:steps [#:steps
(rename-lambda (lambda () 'a (define-values (x) 'b) 'c)) (rename-lambda (lambda () 'a (define-values (x) 'b) 'c))
(block->letrec (lambda () (letrec-values ([() (begin 'a (#%app 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)))] (rename-letrec-values (lambda () (letrec-values ([() (begin 'a (#%app values))] [(x) 'b]) 'c)))]
#:same-hidden-steps) #:same-hidden-steps)]
|#]
[#:suite [#:suite
"Top-level begin" "Top-level begin"