Working on FP arithmetic.

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

diff --git a/defer-is.4th b/defer-is.4th
index 07f1342..ac82c90 100644 (file)
--- 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,9 @@ hide abort-defer
     0 ,
     here docol ,
     [compile] ] ;
+
+
+\ Need this for tail call optimization
+
+: goto-deferred ( cfa -- )
+    R> drop >body @ >body >R ;