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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/words/words.factor
View File

@ -113,7 +113,7 @@ compiled-generic-crossref global [ H{ } assoc-like ] change-at
bi* 2bi ; bi* 2bi ;
: compiled-xref ( word dependencies generic-dependencies -- ) : compiled-xref ( word dependencies generic-dependencies -- )
[ [ drop crossref? ] assoc-filter >alist f like ] bi@ [ [ drop crossref? ] { } assoc-filter-as f like ] bi@
[ over ] dip [ over ] dip
[ "compiled-uses" compiled-crossref (compiled-xref) ] [ "compiled-uses" compiled-crossref (compiled-xref) ]
[ "compiled-generic-uses" compiled-generic-crossref (compiled-xref) ] [ "compiled-generic-uses" compiled-generic-crossref (compiled-xref) ]