Digest #335 2026-07-17

Contributions

[436] 2026-07-16 16:01:41 ruv wrote:

referenceImplementation - Fix FVALUE reference implementation

Since TO must parse the parse area, we should update the reference implementation in E.12.6.2.1628. The minimal change is as follows.

VARIABLE %var

: TO   \ (  ... "\<spaces\>name" -- )
  '  [: 1 %var ! ;]
  STATE @ IF COMPILE, COMPILE, ELSE EXECUTE EXECUTE THEN
; IMMEDIATE

: FVALUE ( F: r -- ) ( "\<spaces\>name" -- )
   CREATE F,
   DOES> %var @ IF F! ELSE F@ THEN
         0 %var ! ;

: VALUE ( x "\<spaces\>name" -- )
   CREATE ,
   DOES> %var @ IF ! ELSE @ THEN
         0 %var ! ;

See also a testcase for TO in contribution-360.