fixed sll conspiracy for modules

svn: r276
2005-06-30 16:34:50 +00:00 · 2005-06-30 16:34:50 +00:00 · a17bb02f6d
commit a17bb02f6d
parent b2032767d2
1 changed files with 4 additions and 5 deletions
--- a/collects/eopl/eopl.ss
+++ b/collects/eopl/eopl.ss
@ -14,11 +14,10 @@
    (syntax-case stx (quote)
      [(_ name (quote def))
       (identifier? (syntax name))
-       (begin
-	 (hash-table-put! sllgen-def
-			  (syntax-e (syntax name))
-			  (syntax def))
-	 (syntax/loc stx (define name (quote def))))]
+       (syntax/loc stx
+	 (begin
+	   (begin-for-syntax (hash-table-put! sllgen-def 'name (quote-syntax def)))
+	   (define name (quote def))))]
      [(_ . rest)
       (syntax/loc stx (define . rest))]))