8.6.2.0435 2VALUE two-value DOUBLE EXT
Skip leading space delimiters. Parse name delimited by a space. Create a definition for name with the execution semantics defined below, with an initial value of x1 x2.
name is referred to as a "two-value".
Place cell pair x1 x2 on the stack. The value of x1 x2 is that given when name was created, until the phrase "x1 x2 TO name" is executed, causing a new cell pair x1 x2 to be assigned to name.
TO name Run-time:
Assign the cell pair x1 x2 to name.
The corresponding implementation of TO disregards the issue that TO must also work for integer VALUEs and locals.
NieDzejkob  Mistake in implementation?Comment2021-06-27 15:30:11
I believe that the usage of
POSTPONE 2LITERAL here is a mistake. The literal that needs to be postponed is an address, so
POSTPONE LITERAL seems to be the correct word to use here.