From 24a77c22f911a496f6bf7b0d1e7a47e8c8f1df7d Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 26 Sep 2013 18:30:36 -0400 Subject: [PATCH] Fix dynamic loading of parameters in `mzc`. --- pkgs/mzscheme/compiler/main.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/pkgs/mzscheme/compiler/main.rkt b/pkgs/mzscheme/compiler/main.rkt index bb9fe2a3b2..4b9166f3c2 100644 --- a/pkgs/mzscheme/compiler/main.rkt +++ b/pkgs/mzscheme/compiler/main.rkt @@ -39,7 +39,7 @@ [dynext/link (use-standard-linker expand-for-link-variant current-extension-linker current-extension-linker-flags current-standard-link-libraries 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/distribute (assemble-distribution)] [compiler/zo-parse (zo-parse)] @@ -430,6 +430,10 @@ [(make-zo) (let ([n (make-base-empty-namespace)] [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] [manager-trace-handler (lambda (p)