18 lines
459 B
Racket
18 lines
459 B
Racket
(module param mzscheme
|
|
(require mzlib/unit
|
|
"sig.rkt"
|
|
"cmdline.rkt"
|
|
"viewer.rkt")
|
|
|
|
(provide current-slideshow-linker)
|
|
|
|
(define current-slideshow-linker
|
|
(make-parameter
|
|
(lambda (core@)
|
|
(compound-unit
|
|
(import)
|
|
(export CORE CMDLINE VIEWER)
|
|
(link [((CONFIG : config^) (CMDLINE : cmdline^)) cmdline@]
|
|
[((CORE : core^)) core@ CMDLINE VIEWER]
|
|
[((VIEWER : viewer^)) viewer@ CMDLINE CORE]))))))
|