Fixed dynamic-requires that had erroneous mzlib prefix attached at the front.

svn: r8778
This commit is contained in:
Danny Yoo 2008-02-23 19:20:44 +00:00
parent 415b7f9af8
commit 49616f9f40
2 changed files with 4 additions and 4 deletions

View File

@ -12,7 +12,7 @@
(provide tool@) (provide tool@)
(define base-importing-stx (dynamic-require 'mzlib/algol60/base (define base-importing-stx (dynamic-require 'algol60/base
'base-importing-stx)) 'base-importing-stx))
(define tool@ (define tool@

View File

@ -457,9 +457,9 @@
(dest-dir)))] (dest-dir)))]
[(make-zo) [(make-zo)
(let ([n (make-base-empty-namespace)] (let ([n (make-base-empty-namespace)]
[mc (dynamic-require 'mzlib/mzlib/cm [mc (dynamic-require 'mzlib/cm
'managed-compile-zo)] 'managed-compile-zo)]
[cnh (dynamic-require 'mzlib/mzlib/cm [cnh (dynamic-require 'mzlib/cm
'manager-compile-notify-handler)] 'manager-compile-notify-handler)]
[did-one? #f]) [did-one? #f])
(parameterize ([current-namespace n] (parameterize ([current-namespace n]