From efe2926d8e29b6e608da5030ace0aba192610c7c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 22 Jul 2012 14:37:15 -0700
Subject: [PATCH] ui: change some places to call safe-summary.

---
 basis/inspector/inspector.factor              | 3 ++-
 basis/ui/gadgets/status-bar/status-bar.factor | 2 +-
 basis/ui/tools/error-list/error-list.factor   | 2 +-
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/basis/inspector/inspector.factor b/basis/inspector/inspector.factor
index 92d61ca7cf..22c4399180 100644
--- a/basis/inspector/inspector.factor
+++ b/basis/inspector/inspector.factor
@@ -10,7 +10,8 @@ IN: inspector
 
 SYMBOL: +number-rows+
 
-: print-summary ( obj -- ) [ summary ] keep write-object ;
+: print-summary ( obj -- )
+    [ safe-summary ] keep write-object ;
 
 <PRIVATE
 
diff --git a/basis/ui/gadgets/status-bar/status-bar.factor b/basis/ui/gadgets/status-bar/status-bar.factor
index 5c4b5d9823..199eb665f0 100644
--- a/basis/ui/gadgets/status-bar/status-bar.factor
+++ b/basis/ui/gadgets/status-bar/status-bar.factor
@@ -26,4 +26,4 @@ IN: ui.gadgets.status-bar
     open-world-window ;
 
 : show-summary ( object gadget -- )
-    [ [ summary ] [ "" ] if* ] dip show-status ;
+    [ [ safe-summary ] [ "" ] if* ] dip show-status ;
diff --git a/basis/ui/tools/error-list/error-list.factor b/basis/ui/tools/error-list/error-list.factor
index 08a2f11c88..e225678e02 100644
--- a/basis/ui/tools/error-list/error-list.factor
+++ b/basis/ui/tools/error-list/error-list.factor
@@ -83,7 +83,7 @@ M: error-renderer row-columns
             [ error-type error-icon ]
             [ line#>> [ number>string ] [ "" ] if* ]
             [ asset>> [ unparse-short ] [ "" ] if* ]
-            [ error>> summary ]
+            [ error>> safe-summary ]
         } cleave
     ] output>array ;
 
-- 
2.34.1