str-dup:dstrings — ordinary primitive
FORTH
$DUP ( $: a$ -- a$ a$ )();p4:"str-dup";
$DUP ( $: a$ -- a$ a$ )(
)
Leave a copy of the topmost string stack entry. The string value is not copied. <ansref>"string-dupe"</ansref>