From f7ba91a6414838bbff9fb9b5d2a8b6bcc2718bbc Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Sun, 8 Mar 2026 19:05:42 +1100
Subject: WORDS stack leak

---
 jefs.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'jefs.fs')

diff --git a/jefs.fs b/jefs.fs
index 77a7747..d3e4331 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -263,7 +263,7 @@ make error-msgs #error-msgs cells allot
 : hide  parse find drop (hide) ; \ todo error handling
 
 : hidden? ( lfa -- ? )  >ffa c@ 1 and 0<> ;
-: (words) ( lfa -- )  dup hidden? not if >nfa dup w@ swap 2 + swap say 2 spaces then ;
+: (words) ( lfa -- )  dup hidden? not if >nfa dup w@ swap 2 + swap say 2 spaces else drop then ;
 : words  latest @ begin ?dup 0<> while dup (words) @ repeat cr ;
 
 \ I/O {{{
-- 
cgit v1.2.3