12 lines
491 B
Text
12 lines
491 B
Text
(define-syntax define
|
|
(syntax-rules (lambda) ;λ
|
|
((define ((name . args) . more) . body)
|
|
(define (name . args) (lambda more . body)))
|
|
((define (name . args) . body)
|
|
(setq name (letq (name) ((lambda args . body)) name)))
|
|
((define name (lambda (var ...) . body))
|
|
(setq name (letq (name) ((lambda (var ...) . body)) name)))
|
|
((define name val)
|
|
(setq name val))
|
|
((define name a b . c)
|
|
(define name (begin a b . c)))))
|