From 2a0c92eb89f79b4ee340db5e663f0f1a6fec2915 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 23 Nov 2008 01:01:21 -0600 Subject: [PATCH] Use assoc-filter-as --- core/words/words.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/words/words.factor b/core/words/words.factor index 6281e10e09..5ac78f1d6a 100644 --- a/core/words/words.factor +++ b/core/words/words.factor @@ -113,7 +113,7 @@ compiled-generic-crossref global [ H{ } assoc-like ] change-at bi* 2bi ; : compiled-xref ( word dependencies generic-dependencies -- ) - [ [ drop crossref? ] assoc-filter >alist f like ] bi@ + [ [ drop crossref? ] { } assoc-filter-as f like ] bi@ [ over ] dip [ "compiled-uses" compiled-crossref (compiled-xref) ] [ "compiled-generic-uses" compiled-generic-crossref (compiled-xref) ]