IF analysis working.

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

diff --git a/src/defer-is.4th b/src/defer-is.4th
index 89f07de..468a353 100644 (file)
--- a/src/defer-is.4th
+++ b/src/defer-is.4th
@@ -33,9 +33,3 @@ hide abort-defer
     0 ,
     here docol ,
     [compile] ] ;
-
-
-\ Need this for tail call optimization
-
-: goto-deferred ( cfa -- )
-    R> drop >body @ >body >R ;