* C+PLACE ( char addr -- ) Append _char_ to the counted string at _addr_. a.k.a. >APPEND-CHAR (being a SYNONYM now) : C+PLACE DUP >R COUNT DUP 1+ R> C! + C! ;
C+PLACE
( char addr -- )
>APPEND-CHAR
SYNONYM
: C+PLACE DUP >R COUNT DUP 1+ R> C! + C! ;
forth_usual ordinary primitive