X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Fgoto.4th;fp=src%2Fgoto.4th;h=a2b5536b8d6dfe5c2b0d7865807728f82eb39032;hb=346e7741d328a4521e8673f1c0418d05d59a4439;hp=0000000000000000000000000000000000000000;hpb=4c218f83d186381b93631feba95b27ddb6fe24a3;p=scheme.forth.jl.git

diff --git a/src/goto.4th b/src/goto.4th
new file mode 100644
index 0000000..a2b5536
--- /dev/null
+++ b/src/goto.4th
@@ -0,0 +1,8 @@
+\ Words implementing GOTO
+\ These are required for tail call optimization.
+
+: goto ( cfa -- )
+    R> drop >body >R ;
+
+: goto-deferred ( cfa -- )
+    R> drop >body @ >body >R ;