tools.deprecation: suppress 'computing usage index...' message

diff --git a/basis/tools/deprecation/deprecation.factor b/basis/tools/deprecation/deprecation.factor
index d194870b18144bd343629263766ca66ad9a1c05a..ff6a7ef51a4fa4c73715ced29f690864f2bbad6e 100644 (file)
--- a/basis/tools/deprecation/deprecation.factor
+++ b/basis/tools/deprecation/deprecation.factor
@@ -1,6 +1,6 @@
 ! (c)2009 Joe Groff bsd license
-USING: accessors arrays assocs compiler.units
-debugger init io kernel namespaces prettyprint sequences
+USING: accessors arrays assocs compiler.units debugger init io
+io.streams.null kernel namespaces prettyprint sequences
 source-files.errors summary tools.crossref
 tools.crossref.private tools.errors words ;
 IN: tools.deprecation
@@ -60,8 +60,10 @@ M: deprecated-usages error.
 SINGLETON: deprecation-observer
 
 : initialize-deprecation-notes ( -- )
-    get-crossref [ drop deprecated? ] assoc-filter
-    values [ keys [ check-deprecations ] each ] each ;
+    [
+        get-crossref [ drop deprecated? ] assoc-filter
+        values [ keys [ check-deprecations ] each ] each
+    ] with-null-writer ;
 
 M: deprecation-observer definitions-changed
     drop keys [ word? ] filter