* /SPLIT ( a m a+i m-i -- a+i m-i a i ) Split a character string _a m_ at place given by _a+i m-i_. Called "cut-split" because "slash-split" is a tongue twister. : /SPLIT DUP >R 2SWAP R> - ;
/SPLIT
( a m a+i m-i -- a+i m-i a i )
: /SPLIT DUP >R 2SWAP R> - ;
FORTH/DEF toolbelt ordinary primitive