X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme.4th;h=24937a21c16619907ccde4f37fd79338c365dd37;hb=050cc9a7e651ba8eacb054283307f4d06141c302;hp=1d06ea63dd7458efbc0a9fe22574dd023d266d91;hpb=9b75e5d50017b95ee8d10ade294c6676a1a60af4;p=scheme.forth.jl.git diff --git a/scheme.4th b/scheme.4th index 1d06ea6..24937a2 100644 --- 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