str-tuck:dstrings — ordinary primitive
FORTH
$TUCK
($: a$ b$ -- b$ a$ b$ )( | ); |
| ; |
Copy the top string stack item just below the second item. The string value is not copied. <ansref>"string-tuck"</ansref>
NOTE: Because of essential string space bookkeeping, the system level implementation can be little more efficient than the high-level definition:
: $TUCK $SWAP $OVER ;