From 49616f9f4062d16c4be23a29c3b09de60b80e8d3 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Sat, 23 Feb 2008 19:20:44 +0000 Subject: [PATCH] Fixed dynamic-requires that had erroneous mzlib prefix attached at the front. svn: r8778 --- collects/algol60/tool.ss | 4 ++-- collects/compiler/main.ss | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/algol60/tool.ss b/collects/algol60/tool.ss index ae0c0e708a..990a8fc039 100644 --- a/collects/algol60/tool.ss +++ b/collects/algol60/tool.ss @@ -12,8 +12,8 @@ (provide tool@) - (define base-importing-stx (dynamic-require 'mzlib/algol60/base - 'base-importing-stx)) + (define base-importing-stx (dynamic-require 'algol60/base + 'base-importing-stx)) (define tool@ (unit diff --git a/collects/compiler/main.ss b/collects/compiler/main.ss index 0ec0c01ba9..84567e02c5 100644 --- a/collects/compiler/main.ss +++ b/collects/compiler/main.ss @@ -457,9 +457,9 @@ (dest-dir)))] [(make-zo) (let ([n (make-base-empty-namespace)] - [mc (dynamic-require 'mzlib/mzlib/cm + [mc (dynamic-require 'mzlib/cm 'managed-compile-zo)] - [cnh (dynamic-require 'mzlib/mzlib/cm + [cnh (dynamic-require 'mzlib/cm 'manager-compile-notify-handler)] [did-one? #f]) (parameterize ([current-namespace n]