From c0b2c7d7d27a4e22746c5f8c186c108f6caa7535 Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Sat, 28 Feb 2026 13:56:27 +0000
Subject: [PATCH] Handle HIDDEN flag

---
 wipforth.wat | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/wipforth.wat b/wipforth.wat
index 57f8b7f..35f6d31 100644
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1291,7 +1291,11 @@
 
  ;; => 0x78 bytes
 
- ;; : NAME-LEN 4+ C@ 31 AND ;
+ ;; : NAME-LEN 4+ C@ 63 AND ;
+
+ ;; The 0x3f mask we use here includes the hidden flag, so that FIND
+ ;; never matches a hidden entry as its length will appear to be
+ ;; greater than the maximum length returned by WORD.
 
  (data (i32.const 0x0760)
        "\e8\06\00\00"
@@ -1300,7 +1304,7 @@
        "\a8\02\00\00"  ;; 4+
        "\fc\03\00\00"  ;; C@
        "\18\04\00\00"  ;; LIT
-       "\1f\00\00\00"  ;; 31
+       "\3f\00\00\00"  ;; 63
        "\8c\03\00\00"  ;; AND
        "\0c\04\00\00") ;; EXIT