11 lines
323 B
Scheme
11 lines
323 B
Scheme
#!r6rs
|
|
(library (srfi :219)
|
|
(export define)
|
|
(import (rename (rnrs base) (define native-define)))
|
|
(define-syntax define
|
|
(syntax-rules ()
|
|
((define ((head . outer-args) . args) . body)
|
|
(define (head . outer-args) (lambda args . body)))
|
|
((define head . body)
|
|
(native-define head . body)))))
|