nybble
/
jumpforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

display exception code in default THROW handler

This commit is contained in:
Jesse D. McDonald 2020-10-20 22:00:45 -05:00
parent 4460297631
commit 1a0fb71dd2
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
startup.4th
View File

@ -414,6 +414,7 @@ CREATE PNO-POINTER PNO-BUFFER-END ,
"I/O error\n" TYPE-ERR "I/O error\n" TYPE-ERR
ENDOF ENDOF
"Uncaught exception: " TYPE-ERR "Uncaught exception: " TYPE-ERR
DUP DUP S>D DABS <# #S ROT SIGN #> TYPE-ERR EOL
ENDCASE ENDCASE
S0 SP! QUIT ; S0 SP! QUIT ;