retroforth/example/top-of-address-stack.retro

8 lines
194 B
Forth
Raw Normal View History

Short for *top of return stack*, this returns the top item on the
address stack. As an analog to traditional Forth, this is equivilent
to `R@`.
~~~
:tors (-n) pop pop dup push swap push ;
~~~