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

Elaborate in this comment.

Browse Source 
svn: r17152
This commit is contained in:
Stevie Strickland 2009-12-01 21:14:24 +00:00
parent d113d2d19a
commit 39689ae4e7
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/syntax/module-reader.ss
View File

@ -184,8 +184,10 @@
(- (or (syntax-position modpath) (add1 pos)) (- (or (syntax-position modpath) (add1 pos))
pos))) pos)))
v))] v))]
;; Since there are users that wrap with #%module-begin in their reader, ;; Since there are users that wrap with #%module-begin in their reader
;; we need to avoid double-wrapping. ;; or wrapper1 functions, we need to avoid double-wrapping. Having to
;; do this for #lang readers should be considered deprecated, and
;; hopefully one day we'll move to just doing it unilaterally.
[wrapped-body (if (contains-#%module-begin body) [wrapped-body (if (contains-#%module-begin body)
body body
(let ([wrapped `(#%module-begin . ,body)]) (let ([wrapped `(#%module-begin . ,body)])