much better way of doing this

svn: r15187
2009-06-16 17:04:30 +00:00 · 2009-06-16 17:04:30 +00:00 · c45b6583ea
commit c45b6583ea
parent b9523d982c
1 changed files with 1 additions and 8 deletions
--- a/collects/s-exp/lang/reader.ss
+++ b/collects/s-exp/lang/reader.ss
@ -1,8 +1 @@
-(module reader syntax/module-reader
-  -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))))
+(module reader syntax/module-reader #:language read)