compile mzc-generated module wrapper without enforced constants

svn: r3147
2006-05-31 11:41:27 +00:00 · 2006-05-31 11:41:27 +00:00 · b36a057d75
commit b36a057d75
parent ce14423968
1 changed files with 2 additions and 1 deletions
--- a/collects/compiler/private/driver.ss
+++ b/collects/compiler/private/driver.ss
@ -698,7 +698,8 @@
 		  (let ([core-thunk
 			 (lambda ()
 			   (parameterize ([current-namespace elaborate-namespace]
-					  [current-load-relative-directory input-directory])
+					  [current-load-relative-directory input-directory]
+					  [compile-enforce-module-constants #f])
 			     (let ([sources+bytecodes+magics
 				    (map (lambda (src)
 					   (let-values ([(src bytecode magic-sym)