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