From 78d45c61de4be1e986cd87d9f667fa2965e22457 Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Fri, 27 Feb 2026 16:18:52 +0000
Subject: [PATCH] Compile NEGATE

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

diff --git a/wipforth.wat b/wipforth.wat
index be2c560..dfe853a 100644
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1407,6 +1407,16 @@
 
  ;; : NEGATE INVERT 1+ ;
 
+ (data (i32.const 0x0930)
+       "\6c\08\00\00"
+       "\06NEGATE\00"
+       "\00\00\00\00"
+       "\b4\03\00\00"  ;; INVERT
+       "\90\02\00\00"  ;; 1+
+       "\0c\04\00\00") ;; EXIT
+
+ ;; => 0x1c bytes
+
  ;; : NUMBER? ( len -- value TRUE | FALSE )
  ;;   WORDBUF                       \ Initial address
  ;;