]> gitweb.factorcode.org Git - factor.git/commitdiff
ui: change some places to call safe-summary.
authorJohn Benediktsson <mrjbq7@gmail.com>
Sun, 22 Jul 2012 21:37:15 +0000 (14:37 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Sun, 22 Jul 2012 21:37:15 +0000 (14:37 -0700)
basis/inspector/inspector.factor
basis/ui/gadgets/status-bar/status-bar.factor
basis/ui/tools/error-list/error-list.factor

index 92d61ca7cfa921c023c2e117cb613dc84786e393..22c43991805e845f78c14f15cc3be1fb0b7d08fd 100644 (file)
@@ -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
 
index 5c4b5d98230900f6b8113ecdac145cb93f5fd07f..199eb665f030f66a96f9e44b8a37d7981eaf6017 100644 (file)
@@ -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 ;
index 08a2f11c88326a1abf862d464ff16d556956d95b..e225678e02abae0c1ca0244354a52ab71cbe7cf1 100644 (file)
@@ -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 ;