CONSTANT

( x "<spaces>name" -- )

Skip leading space delimiters. Parse name delimited by a space. Create a definition for name with the execution semantics defined below.

name is referred to as a "constant".

name Execution:

( -- x )

Place x on the stack.

See:

Rationale:

Typical use: ... DECIMAL 10 CONSTANT TEN ...

Testing:

T{ 123 CONSTANT X123 -> }T
T{ X123 -> 123 }T

T{ : EQU CONSTANT ; -> }T
T{ X123 EQU Y123 -> }T
T{ Y123 -> 123 }T

ContributeContributions