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

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

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)