17 lines
481 B
Scheme
17 lines
481 B
Scheme
(module lang mzscheme
|
|
(require "define-struct.ss"
|
|
"new-lambda.ss")
|
|
|
|
(provide (all-from-except mzscheme #%datum lambda define #%app define-struct)
|
|
(rename new-datum #%datum)
|
|
(rename new-lambda lambda)
|
|
(rename new-define define)
|
|
(rename new-app #%app)
|
|
make-keyword-procedure
|
|
keyword-apply
|
|
procedure-keywords
|
|
(rename define-struct* define-struct)
|
|
struct-field-index))
|
|
|
|
|