Source location in synthetic module begin.

2008-06-16 16:34:09 -04:00 · 2008-06-16 16:34:09 -04:00 · 055eb3cd0b
commit 055eb3cd0b
parent b952c54803
1 changed files with 3 additions and 2 deletions
--- a/collects/typed-scheme/typed-scheme.ss
+++ b/collects/typed-scheme/typed-scheme.ss
@ -70,8 +70,9 @@
           ;; local-expand the module
           ;; pmb = #%plain-module-begin                            
           [with-syntax ([new-mod 
-                          (local-expand #`(#%plain-module-begin 
-                                           forms ...)
+                          (local-expand (syntax/loc stx
+                                          (#%plain-module-begin 
+                                           forms ...))
                                        'module-begin 
                                        null)])]
           [with-syntax ([(pmb body2 ...) #'new-mod])]