* ENDCAT ( -- $: cat$ | empty$ ) If there is no concatenating string, do nothing but leave the empty string. If there is, leave it as a string bound to the top of the string stack, and terminate concatenation, permitting normal copies into the string buffer. "end-cat"
ENDCAT
( -- $: cat$ | empty$ )
FORTH/DEF dstrings ordinary primitive