From 62f3bff926673c6031999c89adfb9c0e48f7ab9e Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Fri, 27 Feb 2026 16:19:31 +0000
Subject: [PATCH] Compile IMMEDIATE?

---
 wipforth.wat | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/wipforth.wat b/wipforth.wat
index a547f94..9795e1f 100644
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1539,6 +1539,24 @@
 
  ;; : IMMEDIATE? 4+ @ 128 AND 0BRANCH [12] TRUE EXIT FALSE ;
 
+ (data (i32.const 0x0a74)
+       "\48\0a\00\00"
+       "\0aIMMEDIATE?\00"
+       "\00\00\00\00"
+       "\a8\02\00\00"  ;; 4+
+       "\cc\03\00\00"  ;; @
+       "\18\04\00\00"  ;; LIT
+       "\80\00\00\00"  ;; 128
+       "\8c\03\00\00"  ;; AND
+       "\b4\04\00\00"  ;; 0BRANCH
+       "\0c\00\00\00"  ;; 12
+       "\34\05\00\00"  ;; TRUE
+       "\0c\04\00\00"  ;; EXIT
+       "\48\05\00\00"  ;; FALSE
+       "\0c\04\00\00") ;; EXIT
+
+ ;; => 0x40 bytes
+
  ;; : INTERPRET
  ;;   WORD                          \ Read a word
  ;;   DUP FIND                      \ Look it up