From 7f577ebad6f135e2169c25deb8f3ca7bf91a9e50 Mon Sep 17 00:00:00 2001 From: kitty Date: Tue, 24 Feb 2026 19:11:46 +1100 Subject: error handling? --- jefs.fs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'jefs.fs') 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 -- cgit v1.2.3