Primitive procedure evaluation working.

[scheme.forth.jl.git] / src / goto.4th

diff --git a/src/goto.4th b/src/goto.4th
new file mode 100644 (file)
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 ;