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

fix macro-stepper tests

Browse Source 
original commit: 08fcc0690a4add831aca42e20ba4f537964dbb8e
This commit is contained in:
Ryan Culpepper 2013-07-30 12:55:38 -04:00
parent fea4babc37
commit b42ddf0c8f
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
pkgs/macro-debugger-pkgs/macro-debugger/tests/macro-debugger/tests/syntax-modules.rkt
View File

@ -201,7 +201,7 @@
(macro (macro
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
(define-values (x) 'a) (define-values (x) 'a)
x)))] x)))]
#:no-hidden-steps) #:no-hidden-steps)
@ -213,7 +213,7 @@
(macro (macro
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
(define-values (x) 'a))))] (define-values (x) 'a))))]
#:no-hidden-steps) #:no-hidden-steps)
(test "module mz, quote" (test "module mz, quote"
@ -224,7 +224,7 @@
(macro (macro
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
'a)))] 'a)))]
#:no-hidden-steps) #:no-hidden-steps)
@ -236,12 +236,12 @@
(macro (macro
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
(begin 'a 'b)))) (begin 'a 'b))))
(splice-module (splice-module
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
'a 'b)))] 'a 'b)))]
#:no-hidden-steps) #:no-hidden-steps)
@ -253,41 +253,41 @@
(macro (macro
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
(or 'a 'b) (or 'a 'b)
'c))) 'c)))
(macro (macro
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
(let ([or-part 'a]) (let ([or-part 'a])
(if or-part or-part (or 'b))) (if or-part or-part (or 'b)))
'c))) 'c)))
(macro (macro
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
(let-values ([(or-part) 'a]) (let-values ([(or-part) 'a])
(if or-part or-part (or 'b))) (if or-part or-part (or 'b)))
'c))) 'c)))
(rename-let-values (rename-let-values
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
(let-values ([(or-part) 'a]) (let-values ([(or-part) 'a])
(if or-part or-part (or 'b))) (if or-part or-part (or 'b)))
'c))) 'c)))
(macro (macro
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
(let-values ([(or-part) 'a]) (let-values ([(or-part) 'a])
(if or-part or-part (#%expression 'b))) (if or-part or-part (#%expression 'b)))
'c))) 'c)))
(macro ;; FIXME: 'untag-expr (macro ;; FIXME: 'untag-expr
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
(let-values ([(or-part) 'a]) (let-values ([(or-part) 'a])
(if or-part or-part 'b)) (if or-part or-part 'b))
'c)))] 'c)))]
@ -310,25 +310,25 @@
(macro (macro
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
(let-values ([(or-part) 'a]) (let-values ([(or-part) 'a])
(if or-part or-part (or 'b)))))) (if or-part or-part (or 'b))))))
(rename-let-values (rename-let-values
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
(let-values ([(or-part) 'a]) (let-values ([(or-part) 'a])
(if or-part or-part (or 'b)))))) (if or-part or-part (or 'b))))))
(macro (macro
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
(let-values ([(or-part) 'a]) (let-values ([(or-part) 'a])
(if or-part or-part (#%expression 'b)))))) (if or-part or-part (#%expression 'b))))))
(macro ;; FIXME: 'untag-expr (macro ;; FIXME: 'untag-expr
(module m mzscheme (module m mzscheme
(#%plain-module-begin (#%plain-module-begin
(#%require (for-syntax scheme/mzscheme)) (#%require (for-syntax mzscheme))
(let-values ([(or-part) 'a]) (let-values ([(or-part) 'a])
(if or-part or-part 'b)))))]) (if or-part or-part 'b)))))])
;; FIXME: hidden steps for above, tricky ;; FIXME: hidden steps for above, tricky