+X/STRING

( xc-addr1 u1 -- xc-addr2 u2 )

Step forward by one xchar in the buffer defined by xc-addr1 u1. xc-addr2 u2 is the remaining buffer after stepping over the first xchar in the buffer.

Implementation:

: +X/STRING ( xc-addr1 u1 -- xc-addr2 u2 )
   OVER DUP XCHAR+ SWAP - /STRING ;

ContributeContributions