7 lines
283 B
Scheme
7 lines
283 B
Scheme
(module match-expander-struct mzscheme
|
|
(require "define-struct.scm")
|
|
(provide (all-defined))
|
|
#;(provide (struct match-expander (match-xform std-xform)))
|
|
(define-struct* match-expander (plt-match-xform match-xform std-xform)
|
|
(procedure-field std-xform))
|
|
) |