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

keep syntax properties at the outer module expression level

Browse Source 
svn: r12122
This commit is contained in:
Eli Barzilay 2008-10-24 22:26:21 +00:00
parent 06e5070d2d
commit 518fc3b0a8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/private/module-language.ss
View File

@ -503,7 +503,7 @@
(when filename (check-filename-matches filename name* stx)) (when filename (check-filename-matches filename name* stx))
(let* (;; rewrite the module to use the scheme/base version of `module' (let* (;; rewrite the module to use the scheme/base version of `module'
[mod (datum->syntax #'here 'module mod)] [mod (datum->syntax #'here 'module mod)]
[expr (datum->syntax stx `(,mod ,name ,lang . ,body) stx)]) [expr (datum->syntax stx `(,mod ,name ,lang . ,body) stx stx)])
(values name lang expr))) (values name lang expr)))
;; get-filename : port -> (union string #f) ;; get-filename : port -> (union string #f)