From 790e7ec0bc787f2c50551a1d9df67e7efd8e7030 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 28 Aug 2009 05:32:34 -0500 Subject: [PATCH] tools.deprecation: suppress 'computing usage index...' message --- basis/tools/deprecation/deprecation.factor | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/basis/tools/deprecation/deprecation.factor b/basis/tools/deprecation/deprecation.factor index d194870b18..ff6a7ef51a 100644 --- 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