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

.

Browse Source 
original commit: f22cb9df23dcb72d5aaf543b7056fa8604ee1f43
This commit is contained in:
Matthew Flatt 1999-05-19 22:05:13 +00:00
parent 89f7f1fb6a
commit eb02d24f31
3 changed files with 38 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/framework/framework.ss
View File

@ -8,8 +8,11 @@
(require-relative-library "test.ss") (require-relative-library "test.ss")
(invoke-open-unit/sig (begin-elaboration-time
(compound-unit/sig (require-library "invoke.ss"))
(define-values/invoke-unit/sig frameworkc^
(compound-unit/sig
(import [core:string : mzlib:string^] (import [core:string : mzlib:string^]
[core:function : mzlib:function^] [core:function : mzlib:function^]
[core:pretty-print : mzlib:pretty-print^] [core:pretty-print : mzlib:pretty-print^]
@ -28,12 +31,13 @@
framework:keys framework:keys
framework:test)]) framework:test)])
(export (open f))) (export (open f)))
#f #f
mzlib:string^ mzlib:string^
mzlib:function^ mzlib:function^
mzlib:pretty-print^ mzlib:pretty-print^
mzlib:file^ mzlib:file^
mzlib:thread^ mzlib:thread^
(keys : framework:keys^) (keys : framework:keys^)
(test : framework:test^) (test : framework:test^)
mred-interfaces^) mred-interfaces^)

26
collects/framework/test.ss
View File

@ -1,13 +1,19 @@
(require-relative-library "tests.ss") (require-relative-library "tests.ss")
(require-relative-library "mred-interfaces.ss") (require-relative-library "mred-interfaces.ss")
(invoke-open-unit/sig (begin-elaboration-time
(compound-unit/sig (require-library "invoke.ss"))
(import)
(link [mred : mred-interfaces^ (mred-interfaces@)] (define-values/invoke-unit/sig ((open mred-interfaces^)
[keys : framework:keys^ ((require-relative-library "keys.ss"))] (open framework:keys^)
[test : framework:test^ ((require-relative-library "testr.ss") mred keys)]) (open framework:test^))
(export (compound-unit/sig
(unit test) (import)
(unit keys) (link [mred : mred-interfaces^ (mred-interfaces@)]
(open mred)))) [keys : framework:keys^ ((require-relative-library "keys.ss"))]
[test : framework:test^ ((require-relative-library "testr.ss") mred keys)])
(export
(unit test)
(unit keys)
(open mred))))

8
collects/hierlist/hierlist.ss
View File

@ -1,6 +1,12 @@
(require-library "hierlists.ss" "hierlist") (require-library "hierlists.ss" "hierlist")
(invoke-open-unit/sig (require-library "hierlistr.ss" "hierlist") #f mred^) (begin-elaboration-time
(require-library "invoke.ss"))
(define-values/invoke-unit/sig hierlist^
(require-library "hierlistr.ss" "hierlist")
#f
mred^)
#| #|