* BOUNDS ( str len -- str+len str ) Convert _str len_ to range for DO-loop. : BOUNDS ( str len -- str+len str ) OVER + SWAP ;
BOUNDS
( str len -- str+len str )
: BOUNDS ( str len -- str+len str ) OVER + SWAP ;
forth_usual ordinary primitive