Added tail-call optimization.

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

diff --git a/defer-is.4th b/defer-is.4th
index 1b171b6..3949d0c 100644 (file)
--- a/defer-is.4th
+++ b/defer-is.4th
@@ -40,3 +40,5 @@ hide abort-defer
 : goto ( cfa -- )
     R> drop execute ;
 
+: goto-prime ( cfa -- )
+    R> R> 2drop execute ;