From 4e3fe96d3db816da1a1e252eb3a9c1d6424fa786 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 6 Dec 2016 16:31:33 -0800 Subject: [PATCH] tools.deprecation: use filter-word-defs. --- basis/tools/deprecation/deprecation.factor | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/basis/tools/deprecation/deprecation.factor b/basis/tools/deprecation/deprecation.factor index 69a876c194..44feaa38c5 100644 --- a/basis/tools/deprecation/deprecation.factor +++ b/basis/tools/deprecation/deprecation.factor @@ -1,9 +1,9 @@ ! (c)2009 Joe Groff bsd license USING: accessors arrays assocs combinators.short-circuit -compiler.units debugger init io sets -io.streams.null kernel namespaces prettyprint sequences -source-files.errors summary tools.crossref -tools.crossref.private tools.errors words ; +compiler.units debugger init io io.streams.null kernel +namespaces prettyprint sequences sets source-files.errors +summary tools.crossref tools.crossref.private tools.errors +words ; IN: tools.deprecation SYMBOL: +deprecation-note+ @@ -68,7 +68,7 @@ SINGLETON: deprecation-observer ] with-null-writer ; M: deprecation-observer definitions-changed - drop members [ word? ] filter + drop filter-word-defs dup [ deprecated? ] any? not [ [ check-deprecations ] each ] [ drop initialize-deprecation-notes ] if ;