error handler as :noname word

1 files 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