Fixed dynamic-requires that had erroneous mzlib prefix attached at the front.
svn: r8778
This commit is contained in:
parent
415b7f9af8
commit
49616f9f40
|
@ -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@
|
||||||
|
|
|
@ -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]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user