X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=defer-is.4th;h=1b171b65fe7952facaa5d7317bc2aae5f01c074b;hb=9ad6e6f21fbbefe9e38bc6b4b8d2a78f8cbca229;hp=bf3225a23b3cb9e5ac4010fa4345d4d14d7e082c;hpb=95c071f1ce6af0571791b2e8b885780182982dff;p=scheme.forth.jl.git

diff --git a/defer-is.4th b/defer-is.4th
index bf3225a..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 ;
@@ -26,3 +26,17 @@ hide abort-defer
         ['] lit , , ['] defer! ,
     then
 ;
+
+: :noname
+    here current @ 1+ @ ,
+    current @ 1+ !
+    0 ,
+    here docol ,
+    [compile] ] ;
+
+
+\ Need this for tail call optimization
+
+: goto ( cfa -- )
+    R> drop execute ;
+