You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
659 B
Scheme
23 lines
659 B
Scheme
27 years ago
|
;; zod-link.ss
|
||
|
|
|
||
|
|
(define mrspidey:zodiac@;; mrspidey:zodiac^
|
||
|
|
(compound-unit/sig
|
||
|
|
(import
|
||
|
|
(CDL : mrspidey:CDL^)
|
||
|
|
(INTERACTION : mrspidey:interaction^))
|
||
|
|
(link
|
||
|
|
[PARAMETERS :
|
||
|
|
plt:parameters^
|
||
|
|
(mrspidey:zodiac:parameters@)]
|
||
|
|
[INTERFACE :
|
||
|
|
zodiac:interface^
|
||
|
|
(mrspidey:zodiac:interface@ INTERACTION)]
|
||
|
|
[Z :
|
||
|
|
zodiac:system^
|
||
|
|
(zodiac:system@ INTERFACE PARAMETERS (CORE pretty-print@) (CORE file@))]
|
||
|
|
[CORE :
|
||
|
|
mzlib:core^
|
||
|
|
((reference-library-unit/sig "corer.ss"))]
|
||
|
|
[AUX : mrspidey:zodiac-aux^ (mrspidey:zodiac-aux@ CDL Z)])
|
||
|
|
(export (open Z) (open AUX))))
|