18.6.2.0175 -TRAILING-GARBAGE minus-trailing-garbage XCHAR EXT

( xc-addr u₁ -- xc-addr u₂ )

Examine the last xchar in the string xc-addr u₁ — if the encoding is correct and it represents a full xchar, u₂ equals u₁, otherwise, u₂ represents the string without the last (garbled) xchar. -TRAILING-GARBAGE does not change this garbled xchar.

: -TRAILING-GARBAGE ( xc-addr u1 -- xc-addr u2 )
   2DUP + DUP XCHAR- ( addr u1 end1 end2 )
   2DUP DUP OVER OVER - X-SIZE + = IF \ last xchar ok
     2DROP
   ELSE
     NIP NIP OVER -
   THEN ;