From acaf198faedf865a5f31572b30837c934b5cbd4b Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Sun, 1 Mar 2026 19:52:16 +0000
Subject: [PATCH] Implement CONSTANT, VARIABLE, VALUE and TO

---
 prelude.f | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/prelude.f b/prelude.f
index d4cbcca..1fdc3b7 100644
--- a/prelude.f
+++ b/prelude.f
@@ -177,6 +177,39 @@ CHAR . EMIT
 
 CHAR . EMIT
 
+\ Constants, variables and values
+
+: CONSTANT
+  WORD CREATE
+  DOCOL ,
+  LIT LIT ,
+  ,
+  LIT EXIT ,
+;
+
+: VARIABLE
+  WORD CREATE
+  DOVAR ,
+  0 ,
+;
+
+: VALUE
+  WORD CREATE
+  DOVAL , ,
+;
+
+: TO
+  ' 4+
+  STATE @ IF
+	LIT LIT , ,
+	LIT ! ,
+  ELSE
+	!
+  THEN
+; IMMEDIATE
+
+CHAR . EMIT
+
 \ Version number
 
 : VERSION-MAJOR 0 ;