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

Have to handle the fact that "body" is a (possibly syntax) list of

Browse Source 
expressions here.  Could also pull out the car of said list and just
return that, but eh.  This code is going to be crap until (if) we can
ever remove the need to be backwards compatible.

svn: r17153
This commit is contained in:
Stevie Strickland 2009-12-01 21:27:55 +00:00
parent 39689ae4e7
commit a24dd4affb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -192,9 +192,9 @@
body body
(let ([wrapped `(#%module-begin . ,body)]) (let ([wrapped `(#%module-begin . ,body)])
(if stx? (if stx?
(datum->syntax #f wrapped all-loc) (list (datum->syntax #f wrapped all-loc))
wrapped)))] (list wrapped))))]
[r `(,(tag-src 'module) ,(tag-src name) ,lang ,wrapped-body)]) [r `(,(tag-src 'module) ,(tag-src name) ,lang . ,wrapped-body)])
(if stx? (datum->syntax #f r all-loc) r))) (if stx? (datum->syntax #f r all-loc) r)))
(define (wrap lang port read modpath src line col pos) (define (wrap lang port read modpath src line col pos)