* J ( -- value ) get the current DO ... LOOP index-value being the not-innnermost. (the second-innermost...) see also for the other loop-index-values at I and K
J
( -- value )
DO
LOOP
I
K
FORTH/ANS core (dpANS.6.1.1730) compiling primitive