RosettaCodeData/Task/Loops-For/Forth/loops-for-2.fth

6 lines
206 B
Forth
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
: limit_example
15 1 do r> r@ dup rot >r drop \ Bring limit on stack
. \ And print it
loop ;
\ Gforth and JSForth all work, SP-Forth brakes (different 'for' implementation?)