18.6.2.2488.20 XHOLD x-hold XCHAR EXT

( xchar -- )

Adds xchar to the picture numeric output string. An ambiguous condition exists if XHOLD executes outside of a <# #> delimited number conversion.

See:

6.1.1670 HOLD.

Implementation:

CREATE xholdbuf 8 ALLOT

: XHOLD ( xchar -- ) xholdbuf TUCK XC!+ OVER - HOLDS ;

ContributeContributions

BerndPaysan [62] Prepend, not addExample2018-06-28 11:05:25

Same as with HOLDS, this should read “add … to the beginning of the pictured number output buffer”.

Test (UTF-8):

T{ 0. <# 123. #s 606D xhold #> s" ?123" compare -> 0 }T

Reply New Version