From c569701f4cefca9617d408511b7479f5ce18f638 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Mon, 25 Feb 2008 01:54:28 +0000 Subject: [PATCH] Fixed other references to erroneous 'mzlib/algol60' module path. svn: r8790 --- collects/algol60/tool.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/algol60/tool.ss b/collects/algol60/tool.ss index 990a8fc039..8ee188a420 100644 --- a/collects/algol60/tool.ss +++ b/collects/algol60/tool.ss @@ -88,8 +88,8 @@ (define/public (get-teachpack-names) null) (define/public (marshall-settings x) x) (define/public (on-execute settings run-in-user-thread) - (dynamic-require 'mzlib/algol60/base #f) - (let ([path ((current-module-name-resolver) 'mzlib/algol60/base #f #f)] + (dynamic-require 'algol60/base #f) + (let ([path ((current-module-name-resolver) 'algol60/base #f #f)] [n (current-namespace)]) (run-in-user-thread (lambda () @@ -115,10 +115,10 @@ base-importing-stx)]) (make-embedding-executable dst-file #f #f - '((#f mzlib/algol60/base)) + '((#f algol60/base)) null (compile - `(module m mzlib/algol60/base + `(module m algol60/base ,code)) (list "-mvqe" "(require m)")))))) (define/public (get-one-line-summary) "Algol 60 (not Scheme at all!)")