Added stubs for macro expansion words.

[scheme.forth.jl.git] / src / scheme.4th

diff --git a/src/scheme.4th b/src/scheme.4th
index 1068229..3931dad 100644 (file)
--- a/src/scheme.4th
+++ b/src/scheme.4th
@@ -1766,6 +1766,15 @@ hide env
     extend-env eval-sequence eval
 ;
 
+: expand-quasiquote ;
+: expand-definition ;
+: expand-assignment ;
+: expand-define-macro ;
+: expand-if ;
+: expand-lambda ;
+: expand-begin ;
+: expand-application ;
+
 :noname ( exp -- result )
 
     quasiquote? if expand-quasiquote exit then