From 1a0fb71dd2fee7d2b45181190889d987ba9c6208 Mon Sep 17 00:00:00 2001
From: Jesse McDonald <nybble41@gmail.com>
Date: Tue, 20 Oct 2020 22:00:45 -0500
Subject: [PATCH] display exception code in default THROW handler

---
 startup.4th | 1 +
 1 file changed, 1 insertion(+)

diff --git a/startup.4th b/startup.4th
index dee0402..9a41f2c 100644
--- 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 ;