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

diff --git a/defer-is.4th b/defer-is.4th
index 1b171b6..89f07de 100644
--- a/defer-is.4th
+++ b/defer-is.4th
@@ -18,7 +18,7 @@ hide abort-defer
 : is immediate
     bl word find
 
-    0= abort" Undefined deferred word."
+    0= abort" Tried to define unknown deferred word."
 
     state @ 0= if
         defer!
@@ -37,6 +37,5 @@ hide abort-defer
 
 \ Need this for tail call optimization
 
-: goto ( cfa -- )
-    R> drop execute ;
-
+: goto-deferred ( cfa -- )
+    R> drop >body @ >body >R ;