11 lines
158 B
Scheme
11 lines
158 B
Scheme
|
|
(module datatype mzscheme
|
|
(require "private/datatype.ss")
|
|
|
|
(define-type-case type-case else)
|
|
|
|
(provide type-case
|
|
define-type
|
|
provide-type))
|
|
|