suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix dynamic loading of parameters in mzc.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2013-09-26 18:30:36 -04:00
parent 9f2755116d
commit 24a77c22f9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/mzscheme/compiler/main.rkt
View File

@ -39,7 +39,7 @@
[dynext/link (use-standard-linker expand-for-link-variant current-extension-linker [dynext/link (use-standard-linker expand-for-link-variant current-extension-linker
current-extension-linker-flags current-standard-link-libraries current-extension-linker-flags current-standard-link-libraries
link-variant link-extension)] link-variant link-extension)]
[compiler/cm (managed-compile-zo manager-compile-notify-handler manager-trace-handler)] [compiler/cm (managed-compile-zo)]
[compiler/xform (xform)] [compiler/xform (xform)]
[compiler/distribute (assemble-distribution)] [compiler/distribute (assemble-distribution)]
[compiler/zo-parse (zo-parse)] [compiler/zo-parse (zo-parse)]
@ -430,6 +430,10 @@
[(make-zo) [(make-zo)
(let ([n (make-base-empty-namespace)] (let ([n (make-base-empty-namespace)]
[did-one? #f]) [did-one? #f])
(define manager-trace-handler
(dynamic-require 'compiler/cm 'manager-trace-handler))
(define manager-compile-notify-handler
(dynamic-require 'compiler/cm 'manager-compile-notify-handler))
(parameterize ([current-namespace n] (parameterize ([current-namespace n]
[manager-trace-handler [manager-trace-handler
(lambda (p) (lambda (p)