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