collapseos/blk/432

17 lines
430 B
Plaintext
Raw Normal View History

2020-04-25 21:54:07 -04:00
( Increase loop counter and returns whether we should loop. )
: _
R> ( IP, keep for later )
R> 1+ ( ip i+1 )
DUP >R ( ip i )
I' = ( ip f )
SWAP >R ( f )
;
( One could think that we should have a sub word to avoid all
these COMPILE, but we can't because otherwise it messes with
the RS )
: LOOP
COMPILE _ COMPILE (?br)
H@ - ,
COMPILE 2R> COMPILE 2DROP
2020-04-25 21:54:07 -04:00
; IMMEDIATE