From c45b6583eabb906fbde147ce8e0d91189efbde89 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 16 Jun 2009 17:04:30 +0000
Subject: [PATCH] much better way of doing this

svn: r15187
---
 collects/s-exp/lang/reader.ss | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/collects/s-exp/lang/reader.ss b/collects/s-exp/lang/reader.ss
index 88cd4f66e0..110b671e21 100644
--- 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)