X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=defer-is.4th;fp=defer-is.4th;h=1b171b65fe7952facaa5d7317bc2aae5f01c074b;hb=613a9d60145361cec8ed96e49193f730e113a53a;hp=07f134264d32612fe362f181c43b09059c07a67e;hpb=fb1e77539ea2eea41e87cb50743a2e4df8e8dac5;p=scheme.forth.jl.git

diff --git a/defer-is.4th b/defer-is.4th
index 07f1342..1b171b6 100644
--- a/defer-is.4th
+++ b/defer-is.4th
@@ -1,4 +1,4 @@
-\ Add words supporting deferred execution
+\ Words supporting deferred execution
 
 : abort-defer
     ." Tried to execute undefined deferred word." cr abort ;
@@ -33,3 +33,10 @@ hide abort-defer
     0 ,
     here docol ,
     [compile] ] ;
+
+
+\ Need this for tail call optimization
+
+: goto ( cfa -- )
+    R> drop execute ;
+