19 lines
478 B
Scheme
19 lines
478 B
Scheme
|
|
(module param mzscheme
|
|
(require (lib "unitsig.ss")
|
|
"sig.ss"
|
|
"cmdline.ss"
|
|
"viewer.ss")
|
|
|
|
(provide current-slideshow-linker)
|
|
|
|
(define current-slideshow-linker
|
|
(make-parameter
|
|
(lambda (core@)
|
|
(compound-unit/sig
|
|
(import)
|
|
(link [CONFIG : cmdline^ (cmdline@)]
|
|
[CORE : core^ (core@ (CONFIG : config^) VIEWER)]
|
|
[VIEWER : viewer^ (viewer@ CONFIG CORE)])
|
|
(export (open CORE) (unit (CONFIG : config^) config) (unit VIEWER viewer)))))))
|