* 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
core ordinary primitive