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

Source location in synthetic module begin.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2008-06-16 16:34:09 -04:00
parent b952c54803
commit 055eb3cd0b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/typed-scheme/typed-scheme.ss
View File

@ -70,8 +70,9 @@
;; local-expand the module ;; local-expand the module
;; pmb = #%plain-module-begin ;; pmb = #%plain-module-begin
[with-syntax ([new-mod [with-syntax ([new-mod
(local-expand #`(#%plain-module-begin (local-expand (syntax/loc stx
forms ...) (#%plain-module-begin
forms ...))
'module-begin 'module-begin
null)])] null)])]
[with-syntax ([(pmb body2 ...) #'new-mod])] [with-syntax ([(pmb body2 ...) #'new-mod])]