X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Fdefer-is.4th;h=468a3537b66ca9a74eee62800cf400d16c3cb810;hb=84e8f70df686212cbf4c4d38b282651a3735f840;hp=89f07de5986924c0b2672cf611c440c9ff794455;hpb=a39894e12a9e84a17411e3bdd5d49fae3369e0d4;p=scheme.forth.jl.git

diff --git a/src/defer-is.4th b/src/defer-is.4th
index 89f07de..468a353 100644
--- 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 ;