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

avoid requiring mzscheme

Browse Source 
svn: r7951

original commit: ddc2ade2714a4924cd60a0895b74062954768a85
This commit is contained in:
Eli Barzilay 2007-12-11 11:28:50 +00:00
parent 193490b000
commit 07cb261b6c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/mzscheme/kw.ss
View File

@ -4,9 +4,10 @@
(Section 'kw) (Section 'kw)
(require (lib "kw.ss") (require (lib "kw.ss")
mzscheme) (prefix-in mz: mzscheme))
(let () (let-syntax ([#%datum (syntax-rules () [(_ . xs) (mz:#%datum . xs)])]
[#%app (syntax-rules () [(_ . xs) (mz:#%app . xs)])])
(define-syntax t (define-syntax t
(syntax-rules (=> <= :rt-err: :st-err:) (syntax-rules (=> <= :rt-err: :st-err:)
[(t E => :rt-err:) (err/rt-test E)] [(t E => :rt-err:) (err/rt-test E)]