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

yet another unit system

Browse Source 
original commit: af5899be42211132775171c0775d260cf3cc585b
This commit is contained in:
Robby Findler 1996-06-21 17:34:36 +00:00
parent f841e99836
commit 20998198b4
5 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/mred/edit.ss
View File

@ -1,12 +1,12 @@
(define mred:edit@
(unit/sig mred:edit^
(import ([unit mred:debug : mred:debug^]
[unit mred:finder : mred:finder^]
[unit mred:path-utils : mred:path-utils^]
[unit mred:mode : mred:mode^]
[unit mred:scheme-paren : mred:scheme-paren^]
[unit mred:keymap : mred:keymap^]
[unit mzlib:function : mzlib:function^]))
(import [mred:debug : mred:debug^]
[mred:finder : mred:finder^]
[mred:path-utils : mred:path-utils^]
[mred:mode : mred:mode^]
[mred:scheme-paren : mred:scheme-paren^]
[mred:keymap : mred:keymap^]
[mzlib:function : mzlib:function^])
(mred:debug:printf 'invoke "mred:edit@")

2
collects/mred/exit.ss
View File

@ -1,6 +1,6 @@
(define mred:exit@
(unit/sig mred:exit^
(import ([unit mred:debug : mred:debug^]))
(import [mred:debug : mred:debug^])
(rename (-exit exit))
(mred:debug:printf 'invoke "mred:exit@")

8
collects/mred/finder.ss
View File

@ -1,9 +1,9 @@
(define mred:finder@
(unit/sig mred:finder^
(import ([unit mred:debug : mred:debug^]
[unit mzlib:string : mzlib:string^]
[unit mzlib:function : mzlib:function^]
[unit mzlib:file : mzlib:file^]))
(import [mred:debug : mred:debug^]
[mzlib:string : mzlib:string^]
[mzlib:function : mzlib:function^]
[mzlib:file : mzlib:file^])
(mred:debug:printf 'invoke "mred:finder@")

10
collects/mred/keys.ss
View File

@ -1,10 +1,10 @@
(define mred:keymap@
(unit/sig mred:keymap^
(import ([unit mred:debug : mred:debug^]
[unit mred:finder : mred:finder^]
[unit mred:handler : mred:handler^]
[unit mred:find-string : mred:find-string^]
[unit mred:scheme-paren : mred:scheme-paren^]))
(import [mred:debug : mred:debug^]
[mred:finder : mred:finder^]
[mred:handler : mred:handler^]
[mred:find-string : mred:find-string^]
[mred:scheme-paren : mred:scheme-paren^])
(mred:debug:printf 'invoke "mred:keymap@")

6
collects/mred/prefs.ss
View File

@ -7,9 +7,9 @@
(define mred:preferences@
(unit/sig mred:preferences^
(import ([unit mred:debug : mred:debug^]
[unit mred:exn : mred:exn^]
[unit mzlib:function : mzlib:function^]))
(import [mred:debug : mred:debug^]
[mred:exn : mred:exn^]
[mzlib:function : mzlib:function^])
(mred:debug:printf 'invoke "mred:preferences@")