steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Slava Pestov 2009-08-28 05:32:34 -05:00
parent a96743d375
commit 790e7ec0bc
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/tools/deprecation/deprecation.factor
View File

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