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

...

Browse Source 
original commit: da8d1848ef7ffb97b7777922f20cc0d3e1469e6d
This commit is contained in:
Robby Findler 1998-11-19 20:53:19 +00:00
parent 36b4a01e74
commit 2d48d07f43
3 changed files with 33 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
collects/framework/framework.ss
View File

@ -1,12 +1,31 @@
(read-case-sensitive #t)
(compile-allow-cond-fallthrough #t)
(compile-allow-set!-undefined #t)
(require-library "mred-interfaces.ss" "framework")
(require-library "frameworks.ss" "framework")
(require-library "string.ss")
(require-library "function.ss")
(require-library "pretty.ss")
(require-library "file.ss")
(require-library "thread.ss")
(invoke-open-unit/sig
(compound-unit/sig
(import)
(import [core:string : mzlib:string^]
[core:function : mzlib:function^]
[core:pretty-print : mzlib:pretty-print^]
[core:file : mzlib:file^]
[core:thread : mzlib:thread^])
(link [M : mred-interfaces^ (mred-interfaces@)]
[C : mzlib:core^ ((require-library "corer.ss"))]
[F : framework^ ((require-library "frameworkr.ss" "framework") C M)])
(export (open F))))
[F : framework^ ((require-library "frameworkc.ss" "framework")
core:string
core:function
core:pretty-print
core:file
core:thread
C M)])
(export (open F)))
#f
mzlib:string^
mzlib:function^
mzlib:pretty-print^
mzlib:file^
mzlib:thread^)

7
collects/framework/frameworks.ss
View File

@ -1,3 +1,8 @@
;; language specification
(read-case-sensitive #t)
(compile-allow-cond-fallthrough #t)
(compile-allow-set!-undefined #t)
(require-library "refer.ss")
(require-library "cores.ss")
(require-library "dates.ss")
@ -7,7 +12,7 @@
(require-library "macro.ss")
(require-relative-library "macro.ss")
(require-relative-library "stsig.ss")
(require-relative-library "tests.ss")
(define-signature framework:version^
(add-spec

24
collects/framework/test.ss
View File

@ -1,24 +1,2 @@
(printf "1~n")
(require-library "errortrace.ss" "errortrace")
(read-case-sensitive #t)
(compile-allow-cond-fallthrough #t)
(compile-allow-set!-undefined #t)
(printf "2~n")
(require-library "loader.ss" "system")
(printf "3~n")
;(require-library "gen-mred-interfaces.ss" "framework")
(printf "4~n")
(require-library "mred-interfaces.ss" "framework")
(printf "5~n")
(require-library "frameworks.ss" "framework")
(printf "6~n")
(define framework@ (require-library "frameworkr.ss" "framework"))
(printf "7~n")
(invoke-unit/sig
(compound-unit/sig
(import)
(link [M : mred-interfaces^ (mred-interfaces@)]
[C : mzlib:core^ ((require-library "corer.ss"))]
[F : framework^ (framework@ C M)])
(export)))
(printf "8~n")
(require-library "framework.ss")