racket/collects/texpict/texpict-unit.ss
2005-05-27 18:56:37 +00:00

26 lines
608 B
Scheme

(module texpict-unit mzscheme
(require (lib "unitsig.ss"))
(require "private/texpict-sig.ss"
"private/common-sig.ss"
"private/common-unit.ss"
"private/texpict-extra.ss")
(provide texpict@)
(define texpict@
(compound-unit/sig
(import)
(link
[common : ((open texpict-common^)
(open texpict-internal^))
(common@
(texpictx : texpict-common-setup^))]
[texpictx : ((open texpict-extra^)
(open texpict-common-setup^))
(texpict-extra@
common)])
(export (open (common : texpict-common^))
(open (texpictx : texpict-extra^))))))