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

tools.deprecation: use filter-word-defs.

char-rename
John Benediktsson 2016-12-06 16:31:33 -08:00
parent 073dc4686a
commit 4e3fe96d3d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,9 +1,9 @@
! (c)2009 Joe Groff bsd license ! (c)2009 Joe Groff bsd license
USING: accessors arrays assocs combinators.short-circuit USING: accessors arrays assocs combinators.short-circuit
compiler.units debugger init io sets compiler.units debugger init io io.streams.null kernel
io.streams.null kernel namespaces prettyprint sequences namespaces prettyprint sequences sets source-files.errors
source-files.errors summary tools.crossref summary tools.crossref tools.crossref.private tools.errors
tools.crossref.private tools.errors words ; words ;
IN: tools.deprecation IN: tools.deprecation
SYMBOL: +deprecation-note+ SYMBOL: +deprecation-note+
@ -68,7 +68,7 @@ SINGLETON: deprecation-observer
] with-null-writer ; ] with-null-writer ;
M: deprecation-observer definitions-changed M: deprecation-observer definitions-changed
drop members [ word? ] filter drop filter-word-defs
dup [ deprecated? ] any? not dup [ deprecated? ] any? not
[ [ check-deprecations ] each ] [ [ check-deprecations ] each ]
[ drop initialize-deprecation-notes ] if ; [ drop initialize-deprecation-notes ] if ;