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

fix Algol60 stand-alone executables

Browse Source 
svn: r1561
This commit is contained in:
Matthew Flatt 2005-12-07 20:33:25 +00:00
parent f4809f4576
commit e54514d4be
3 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/algol60/base.ss
View File

@ -2,6 +2,9 @@
(require "prims.ss" (require "prims.ss"
"runtime.ss") "runtime.ss")
(define base-importing-stx #'here)
(provide (all-from mzscheme) (provide (all-from mzscheme)
(all-from "prims.ss") (all-from "prims.ss")
(all-from "runtime.ss"))) (all-from "runtime.ss")
base-importing-stx))

3
collects/algol60/get-base.ss
View File

@ -1,3 +0,0 @@
(module get-base (lib "base.ss" "algol60")
(provide base-importing-stx)
(define base-importing-stx #'here))

4
collects/algol60/tool.ss
View File

@ -6,13 +6,15 @@
"parse.ss" "parse.ss"
"simplify.ss" "simplify.ss"
"compile.ss" "compile.ss"
"get-base.ss"
(lib "embed.ss" "compiler") (lib "embed.ss" "compiler")
(lib "string-constant.ss" "string-constants") (lib "string-constant.ss" "string-constants")
(prefix bd: "bd-tool.ss")) (prefix bd: "bd-tool.ss"))
(provide tool@) (provide tool@)
(define base-importing-stx (dynamic-require '(lib "base.ss" "algol60")
'base-importing-stx))
(define tool@ (define tool@
(unit/sig drscheme:tool-exports^ (unit/sig drscheme:tool-exports^
(import drscheme:tool^) (import drscheme:tool^)