From 7e3e4eb8b4b8711635aa6e05d90877bfdfcb4b6d Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Wed, 3 Aug 2022 20:25:46 -0700 Subject: Start the scheme base library. --- lib/scheme/base/10-define.csc | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 lib/scheme/base/10-define.csc (limited to 'lib/scheme/base/10-define.csc') 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))))) -- cgit v1.3.1