error handling?

1 files changed, 5 insertions, 4 deletions

diff --git a/jefs.fs b/jefs.fs
index 9677229..e056cf7 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -165,11 +165,12 @@ variable hld
 \ : .free  bytes-free u. ." of " bytes-allocated u. ." bytes free (used " bytes-used (.) say ." )" cr ; \ segfaults
 
 : >nfa ( lfa -- nfa )  9 + ;
-: (words) ( lfa -- )  >nfa dup w@ swap 1+ 1+ swap say 2 spaces ; \ TODO works? maybe? idk
-: words  latest @ begin ?dup 0<> while dup (words) @ ( todo ->NEXT ) repeat cr ;
+: >ffa ( lfa -- ffa )  8 + ;
+: (words) ( lfa -- )  >nfa dup w@ swap 2 + swap say 2 spaces ;
+: words  latest @ begin ?dup 0<> while dup (words) @ repeat cr ;
 
 \ .free bye
-\ : t s" eue eu eo o eu" drop .s say s" eue " ;
+\ : t s" eue eu eo o eu" ; \ s" eue " [ HEREDUMP ] ;
 
-words
+\ words
 bye