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@ (define mred:edit@
(unit/sig mred:edit^ (unit/sig mred:edit^
(import ([unit mred:debug : mred:debug^] (import [mred:debug : mred:debug^]
[unit mred:finder : mred:finder^] [mred:finder : mred:finder^]
[unit mred:path-utils : mred:path-utils^] [mred:path-utils : mred:path-utils^]
[unit mred:mode : mred:mode^] [mred:mode : mred:mode^]
[unit mred:scheme-paren : mred:scheme-paren^] [mred:scheme-paren : mred:scheme-paren^]
[unit mred:keymap : mred:keymap^] [mred:keymap : mred:keymap^]
[unit mzlib:function : mzlib:function^])) [mzlib:function : mzlib:function^])
(mred:debug:printf 'invoke "mred:edit@") (mred:debug:printf 'invoke "mred:edit@")

2
collects/mred/exit.ss
View File

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

8
collects/mred/finder.ss
View File

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

10
collects/mred/keys.ss
View File

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

6
collects/mred/prefs.ss
View File

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