suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed other references to erroneous 'mzlib/algol60' module path.

Browse Source 
svn: r8790
This commit is contained in:
Danny Yoo 2008-02-25 01:54:28 +00:00
parent 13249d3ad0
commit c569701f4c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/algol60/tool.ss
View File

@ -88,8 +88,8 @@
(define/public (get-teachpack-names) null) (define/public (get-teachpack-names) null)
(define/public (marshall-settings x) x) (define/public (marshall-settings x) x)
(define/public (on-execute settings run-in-user-thread) (define/public (on-execute settings run-in-user-thread)
(dynamic-require 'mzlib/algol60/base #f) (dynamic-require 'algol60/base #f)
(let ([path ((current-module-name-resolver) 'mzlib/algol60/base #f #f)] (let ([path ((current-module-name-resolver) 'algol60/base #f #f)]
[n (current-namespace)]) [n (current-namespace)])
(run-in-user-thread (run-in-user-thread
(lambda () (lambda ()
@ -115,10 +115,10 @@
base-importing-stx)]) base-importing-stx)])
(make-embedding-executable dst-file (make-embedding-executable dst-file
#f #f #f #f
'((#f mzlib/algol60/base)) '((#f algol60/base))
null null
(compile (compile
`(module m mzlib/algol60/base `(module m algol60/base
,code)) ,code))
(list "-mvqe" "(require m)")))))) (list "-mvqe" "(require m)"))))))
(define/public (get-one-line-summary) "Algol 60 (not Scheme at all!)") (define/public (get-one-line-summary) "Algol 60 (not Scheme at all!)")