From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 22 Jul 2012 21:37:15 +0000 (-0700)
Subject: ui: change some places to call safe-summary.
X-Git-Tag: 0.97~2814
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=efe2926d8e29b6e608da5030ace0aba192610c7c

ui: change some places to call safe-summary.
---

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 ;