Change tabular-output and smash-pane behavior to fix panes unit tests; re-organize...

[factor.git] / basis / inspector / inspector.factor

diff --git a/basis/inspector/inspector.factor b/basis/inspector/inspector.factor
index 05c4dc2a946f45d26ce658c296c1cfb965b08302..8cab5b5ad362b2dc168c6b527b6ffb04496ab8a1 100644 (file)
--- a/basis/inspector/inspector.factor
+++ b/basis/inspector/inspector.factor
@@ -9,7 +9,7 @@ IN: inspector
 
 SYMBOL: +number-rows+
 
-: summary. ( obj -- ) [ summary ] keep write-object nl ;
+: print-summary ( obj -- ) [ summary ] keep write-object ;
 
 <PRIVATE
 
@@ -40,7 +40,7 @@ M: mirror fix-slot-names
 
 : (describe) ( obj assoc -- keys )
     t pprint-string-cells? [
-        [ summary. ] [
+        [ print-summary nl ] [
             dup hashtable? [ sort-unparsed-keys ] when
             [ fix-slot-names add-numbers simple-table. ] [ keys ] bi
         ] bi*