Implemented scaffolding for mark+sweep GC.

[scheme.forth.jl.git] / defer-is.4th

diff --git a/defer-is.4th b/defer-is.4th
index 1b171b6..ac82c90 100644 (file)
--- a/defer-is.4th
+++ b/defer-is.4th
@@ -37,6 +37,5 @@ hide abort-defer
 
 \ Need this for tail call optimization
 
-: goto ( cfa -- )
-    R> drop execute ;
-
+: goto-deferred ( cfa -- )
+    R> drop >body @ >body >R ;