18.6.2.2520
[CHAR]
bracket-char
XCHAR EXT
Interpretation:
Interpretation semantics for this word are undefined.

Compilation:
( "<spaces>name" -- )

Skip leading space delimiters. Parse name delimited by a space. Append the run-time semantics given below to the current definition.

Run-time:
( -- xchar )

Place xchar, the value of the first xchar of name, on the stack.

Implementation:
: [CHAR] ( "name" -- rt:xchar )
   CHAR POSTPONE LITERAL ; IMMEDIATE