Use assoc-filter-as

db4
Slava Pestov 2008-11-23 01:01:21 -06:00
parent 2fe561ffca
commit 2a0c92eb89
1 changed files with 1 additions and 1 deletions

View File

@ -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) ]