From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 2 Jun 2012 00:07:10 +0000 (-0700)
Subject: listener: don't crash if pprint fails.
X-Git-Tag: 0.97~3037
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=31d30c530235b952df14a9b9ed412e7af376ea7b

listener: don't crash if pprint fails.
---

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index 59ddff1f75..f105892ca6 100644
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@@ -93,6 +93,13 @@ t error-summary? set-global
         ] tabular-output nl
     ] unless-empty ;
 
+: print-stack ( seq -- )
+    [
+        [ short. ]
+        [ drop "~pprint error~" swap write-object nl ]
+        recover
+    ] each ;
+
 : trimmed-stack. ( seq -- )
     dup length max-stack-items get > [
         max-stack-items get cut*
@@ -100,7 +107,7 @@ t error-summary? set-global
             [ length number>string "(" " more items)" surround ] keep
             write-object nl
         ] dip
-    ] when stack. ;
+    ] when print-stack ;
 
 : datastack. ( datastack -- )
     display-stacks? get [