From 06f25413604a1340d38272df51ddc9969e48f74c Mon Sep 17 00:00:00 2001
From: ruv <ruv@users.noreply.github.com>
Date: Sun, 21 Sep 2025 10:48:31 +0000
Subject: [PATCH] UPD coreexttest.fth - test TO for an immediate value

Make sure `TO` correctly behaves when its argument
is an immediate word created with `VALUE`.

See-also
  https://forth-standard.org/standard/core/TO#contribution-360
---
 src/coreexttest.fth | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/coreexttest.fth b/src/coreexttest.fth
index 382f93f..8601c55 100644
--- a/src/coreexttest.fth
+++ b/src/coreexttest.fth
@@ -424,6 +424,7 @@ T{ 444 TO VAL1 -> }T
 T{ VD1 -> 444 }T
 T{ 123 VALUE VAL3 IMMEDIATE VAL3 -> 123 }T
 T{ : VD3 VAL3 LITERAL ; VD3 -> 123 }T
+T{ : TO-VAL3 TO VAL3 ; 124 TO-VAL3 VAL3 VD3 -> 124 123 }T
 
 \ -----------------------------------------------------------------------------
 TESTING CASE OF ENDOF ENDCASE