diff options
| -rw-r--r-- | jefs.fs | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -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 |