Added define and set! cases to the macro expander.

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

diff --git a/src/scheme-derived-forms.scm b/src/scheme-derived-forms.scm
index 1edd186..010519d 100644 (file)
--- a/src/scheme-derived-forms.scm
+++ b/src/scheme-derived-forms.scm
@@ -7,3 +7,8 @@
               (if (pair? args)
                 `(define ,(car args) (lambda ,(cdr args) ,@body))
                 'no-match))
+
+;; Macro expansion test code
+
+(define-macro (test)
+              '(begin (display "Hello!") (newline)))