17 lines
348 B
Scheme
17 lines
348 B
Scheme
|
|
(module texpict-unit mzscheme
|
|
(require mzlib/unit)
|
|
|
|
(require "private/texpict-sig.ss"
|
|
"private/common-sig.ss"
|
|
"private/common-unit.ss"
|
|
"private/texpict-extra.ss")
|
|
|
|
(provide texpict@)
|
|
(define-compound-unit/infer texpict@
|
|
(import)
|
|
(export texpict-common^
|
|
texpict-extra^)
|
|
(link common@ texpict-extra@)))
|
|
|