WORDS stack leak

2 files changed, 3 insertions, 1 deletions

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`
 - `<BUILDS` and `DOES>`