display exception code in default THROW handler

2020-10-20 22:00:45 -05:00 · 2020-10-20 22:00:45 -05:00 · 1a0fb71dd2
parent 4460297631
commit 1a0fb71dd2
1 changed files with 1 additions and 0 deletions
--- a/startup.4th
+++ b/startup.4th
@ -414,6 +414,7 @@ CREATE PNO-POINTER PNO-BUFFER-END ,
         "I/O error\n" TYPE-ERR
      ENDOF
      "Uncaught exception: " TYPE-ERR
+      DUP DUP S>D DABS <# #S ROT SIGN #> TYPE-ERR EOL
   ENDCASE
   S0 SP! QUIT ;