6.2.1675
HOLDS
 
CORE EXT
 
( c-addr u -- )

Adds the string represented by c-addr u to the pictured numeric output string. An ambiguous condition exists if HOLDS executes outside of a <# #> delimited number conversion.

Implementation:
: HOLDS ( addr u -- )
   BEGIN DUP WHILE 1- 2DUP + C@ HOLD REPEAT 2DROP ;
Testing:
T{ 0. <# S" Test" HOLDS #> S" Test" COMPARE -> 0 }T