use reject instead of [ ... not ] filter.

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

diff --git a/basis/inspector/inspector.factor b/basis/inspector/inspector.factor
index 2aa7cd218e02b051ca1ac66b2612bbefe620b2d1..97c28f7dfeb85ac9099a8cc9466d49f392307605 100644 (file)
--- a/basis/inspector/inspector.factor
+++ b/basis/inspector/inspector.factor
@@ -5,11 +5,13 @@ namespaces prettyprint prettyprint.custom prettyprint.sections
 sequences strings io.styles vectors words quotations mirrors
 splitting math.parser classes vocabs sets sorting summary
 debugger continuations fry combinators ;
+FROM: namespaces => set ;
 IN: inspector
 
 SYMBOL: +number-rows+
 
-: print-summary ( obj -- ) [ summary ] keep write-object ;
+: print-summary ( obj -- )
+    [ safe-summary ] keep write-object ;
 
 <PRIVATE
 
@@ -51,7 +53,7 @@ PRIVATE>
 M: tuple error. describe ;
 
 : vars-in-scope ( seq -- alist )
-    [ [ global eq? not ] filter [ keys ] gather ] keep
+    [ [ global eq? ] reject [ keys ] gather ] keep
     '[ dup _ assoc-stack ] H{ } map>assoc ;
 
 : .vars ( -- )