X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=src%2Fscheme-derived-forms.scm;h=010519df2a91d4b34d43862369c6f0cf27079c4c;hp=1edd186be44af1bd055e475c44679b29ba00dd9d;hb=23fde15081cff22df3a870a7a8a5692b7761e0aa;hpb=3f10b9976a9b02716a433666d972e30c6b81fd92

diff --git a/src/scheme-derived-forms.scm b/src/scheme-derived-forms.scm
index 1edd186..010519d 100644
--- 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)))