mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
9 lines
373 B
Scheme
9 lines
373 B
Scheme
(define-library (srfi 219)
|
|
(export define)
|
|
(import (rename (scheme base) (define native-define)))
|
|
(begin (define-syntax define
|
|
(syntax-rules ()
|
|
((define ((name . outer-args) . args) . body)
|
|
(define (name . outer-args) (lambda args . body)))
|
|
((define head . body)
|
|
(native-define head . body))))))
|