From f7ba91a6414838bbff9fb9b5d2a8b6bcc2718bbc Mon Sep 17 00:00:00 2001 From: kitty Date: Sun, 8 Mar 2026 19:05:42 +1100 Subject: WORDS stack leak --- jefs.fs | 2 +- readme.md | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) 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 {{{ diff --git a/readme.md b/readme.md index 340e232..16392e7 100644 --- a/readme.md +++ b/readme.md @@ -61,6 +61,8 @@ the error codes are: - argc + argv - testing +- `DEPTH` +- more terminal control words - `s\"` - `DO` + `LOOP` - `` -- cgit v1.2.3