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

much better way of doing this

Browse Source 
svn: r15187
This commit is contained in:
Eli Barzilay 2009-06-16 17:04:30 +00:00
parent b9523d982c
commit c45b6583ea
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/s-exp/lang/reader.ss
View File

@ -1,8 +1 @@
(module reader syntax/module-reader (module reader syntax/module-reader #:language read)
-ignored-
#:wrapper2
(lambda (in rd stx?)
(let* ([mod* (rd in)]
[mod (if stx? (syntax->list mod*) mod*)]
[mod `(,(car mod) ,(cadr mod) ,@(cdddr mod))])
(if stx? (datum->syntax mod* mod mod*) mod))))