Source location in synthetic module begin.

original commit: 055eb3cd0b2b1f57d79808c40e3dc5566b94d65b
2008-06-16 16:34:09 -04:00 · 2008-06-16 16:34:09 -04:00 · 8d9ca01cf5
commit 8d9ca01cf5
parent 12aef5cc7e
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])]