src/goto.4th

   1 \ Words implementing GOTO
   2 \ These are required for tail call optimization.
   3
   4 : goto ( cfa -- )
   5     R> drop >body >R ;
   6
   7 : goto-deferred ( cfa -- )
   8     R> drop >body @ >body >R ;