From 518fc3b0a8868736c5ed7d17cc10a7546a2e3532 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 24 Oct 2008 22:26:21 +0000 Subject: [PATCH] keep syntax properties at the outer module expression level svn: r12122 --- collects/drscheme/private/module-language.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss index 8d426b9a68..5d9b75f51f 100644 --- a/collects/drscheme/private/module-language.ss +++ b/collects/drscheme/private/module-language.ss @@ -503,7 +503,7 @@ (when filename (check-filename-matches filename name* stx)) (let* (;; rewrite the module to use the scheme/base version of `module' [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))) ;; get-filename : port -> (union string #f)