* SPLIT-NEXT-LINE ( src . -- src' . str len ) Split the next line from the string. : SPLIT-NEXT-LINE 2DUP #EOL-CHAR SCAN DUP >R 1 /STRING 2SWAP R> - ; FIXME: inform Neil Bawd that this is probably not what he wanted. replace /STRING with /SPLIT here.
SPLIT-NEXT-LINE
( src . -- src' . str len )
: SPLIT-NEXT-LINE 2DUP #EOL-CHAR SCAN DUP >R 1 /STRING 2SWAP R> - ;
FORTH/DEF toolbelt ordinary primitive