X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=defer-is.4th;h=ac82c90ac15760b8806be2e714745a6891527556;hb=215a272cf2521c34e9f8d2be62db1a35ac0a9809;hp=3949d0cca3480c4fc2583de5b132f6373120ab81;hpb=9f67194788cd9f6b8b576e31ecb7f3059648a659;p=scheme.forth.jl.git

diff --git a/defer-is.4th b/defer-is.4th
index 3949d0c..ac82c90 100644
--- a/defer-is.4th
+++ b/defer-is.4th
@@ -37,8 +37,5 @@ hide abort-defer
 
 \ Need this for tail call optimization
 
-: goto ( cfa -- )
-    R> drop execute ;
-
-: goto-prime ( cfa -- )
-    R> R> 2drop execute ;
+: goto-deferred ( cfa -- )
+    R> drop >body @ >body >R ;