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 (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!)")