First tentative macro expansion working.

[scheme.forth.jl.git] / src / scheme-derived-forms.scm

diff --git a/src/scheme-derived-forms.scm b/src/scheme-derived-forms.scm
new file mode 100644 (file)
index 0000000..1edd186
--- /dev/null
+++ b/src/scheme-derived-forms.scm
@@ -0,0 +1,9 @@
+;; define (procedural syntax)
+
+; Due to recursive macro expansion, this definition also allows
+; for curried function definitions.
+
+(define-macro (define args . body)
+              (if (pair? args)
+                `(define ,(car args) (lambda ,(cdr args) ,@body))
+                'no-match))