From b36a057d75278d41ac2af3544fc6d28a6a50b543 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 31 May 2006 11:41:27 +0000 Subject: [PATCH] compile mzc-generated module wrapper without enforced constants svn: r3147 --- collects/compiler/private/driver.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/compiler/private/driver.ss b/collects/compiler/private/driver.ss index 90eaee5caf..a412467f64 100644 --- 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)