Macro expansion working properly.

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

diff --git a/src/scheme-derived-forms.scm b/src/scheme-derived-forms.scm
deleted file mode 100644 (file)
index 010519d..0000000
--- a/src/scheme-derived-forms.scm
+++ /dev/null
@@ -1,14 +0,0 @@
-;; 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))
-
-;; Macro expansion test code
-
-(define-macro (test)
-              '(begin (display "Hello!") (newline)))