From ca61de360e5e3992c6732b6f379bacf00694cdb0 Mon Sep 17 00:00:00 2001 From: kitty Date: Sat, 28 Feb 2026 17:58:44 +1100 Subject: error handler as :noname word --- jefs.fs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/jefs.fs b/jefs.fs index d2064cf..9680bea 100644 --- a/jefs.fs +++ b/jefs.fs @@ -212,14 +212,13 @@ variable hld : .free bytes-free u. ." of " bytes-allocated u. ." bytes free (used " bytes-used (.) say ." )" cr ; : #bye ( code -- ) 60 syscall1 ; -: (handler) >s0 error @ dup case +:noname >s0 error @ dup case 1 of ." stack underflow" endof 2 of ." word not found" endof 3 of ." compile mode only" endof 4 of ." interpret mode only" endof ." unknown error" - endcase cr #bye ; -' (handler) to handler + endcase cr #bye ; to handler : fuck ( n -- ) error ! handler execute ; : >ffa ( lfa -- ffa ) 8 + ; @@ -276,5 +275,5 @@ make file-buffer file-buffer-length allot .free \ file-buffer file-buffer-length stdin read-file drop file-buffer swap evaluate -:noname 1 2 3 .s ; +:noname 1 2 3 .s ; drop bye -- cgit v1.2.3