From 55bc5060e4b4bb62f37d66ecedfb34d79ca0e747 Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Thu, 26 Feb 2026 23:12:12 +0000
Subject: [PATCH] Compile TUCK

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

diff --git a/wipforth.wat b/wipforth.wat
index 6679578..8499d52 100644
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1095,6 +1095,16 @@
 
  ;; : TUCK DUP -ROT ;
 
+ (data (i32.const 0x05e4)
+       "\d0\05\00\00"
+       "\04TUCK\00\00\00"
+       "\00\00\00\00"
+       "\08\02\00\00"  ;; DUP
+       "\44\02\00\00"  ;; -ROT
+       "\0c\04\00\00") ;; EXIT
+
+ ;; => 0x1c bytes
+
  ;; : SPACE? ( byte -- bool )
  ;;   DUP 9 = SWAP                 \ Compare to horizontal tab
  ;;   DUP 10 = SWAP                \ Compare to line-feed