diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-08-03 20:25:46 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-08-03 20:25:46 -0700 |
| commit | 7e3e4eb8b4b8711635aa6e05d90877bfdfcb4b6d (patch) | |
| tree | b4395a22f7e9da161c5a3b06f3154387607973fe /lib/scheme/base/10-define.csc | |
| parent | Remove mutable globals. (diff) | |
| download | chromatopelma-7e3e4eb8b4b8711635aa6e05d90877bfdfcb4b6d.tar.zst | |
Start the scheme base library.
Diffstat (limited to 'lib/scheme/base/10-define.csc')
| -rw-r--r-- | lib/scheme/base/10-define.csc | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/scheme/base/10-define.csc b/lib/scheme/base/10-define.csc new file mode 100644 index 0000000..d110268 --- /dev/null +++ b/lib/scheme/base/10-define.csc @@ -0,0 +1,15 @@ +(export + define + define-syntax) +(import (only (csc builtins) + builtin-define + define-syntax)) +(begin + + + (define-syntax define + (syntax-rules () + ((define (f . args) body ...) + (define f (lambda args body ...))) + ((define name binding) + (builtin-define name binding))))) |