Very basic macros working.

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

diff --git a/scheme.4th b/scheme.4th
index 1d06ea6..24937a2 100644 (file)
--- a/scheme.4th
+++ b/scheme.4th
@@ -1361,9 +1361,7 @@ hide env
             ( env exp env opname mproc )
             2swap 2drop -2rot 2drop cdr ( env mproc body )
 
-            2dup print cr
             macro-expand
-            2dup print cr
 
             2swap
             ['] eval goto-deferred