X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=defer-is.4th;h=3949d0cca3480c4fc2583de5b132f6373120ab81;hb=d42b0088f674ffdcd607016213c66455864b7588;hp=1b171b65fe7952facaa5d7317bc2aae5f01c074b;hpb=9094335682c3a223c21f550dc94d766827ddedee;p=scheme.forth.jl.git

diff --git a/defer-is.4th b/defer-is.4th
index 1b171b6..3949d0c 100644
--- 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 ;