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)))))