18.6.2.0895 CHAR XCHAR EXT

( "<spaces>name" -- xchar )

Skip leading space delimiters. Parse name delimited by a space. Put the value of its first xchar onto the stack.

See:

Rationale:

The behavior of the extended version of CHAR is fully backward compatible with 6.1.0895 CHAR.

Implementation:

: CHAR ( "name" -- xchar ) BL WORD COUNT DROP XC@+ NIP ;

ContributeContributions