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

compiler.crossref: fix bugs

db4
Slava Pestov 2009-11-08 06:22:39 -06:00
parent 8b52d85aed
commit da041a0175
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/compiler/crossref/crossref.factor
View File

@ -42,10 +42,10 @@ compiled-generic-crossref [ H{ } clone ] initialize
[ (compiled-generic-usages) ] { } assoc>map ; [ (compiled-generic-usages) ] { } assoc>map ;
: (compiled-xref) ( word dependencies word-prop variable -- ) : (compiled-xref) ( word dependencies word-prop variable -- )
[ concat set-word-prop ] [ get add-vertex* ] bi-curry* 2bi ; [ [ concat ] dip set-word-prop ] [ get add-vertex* ] bi-curry* 2bi ;
: compiled-xref ( word dependencies generic-dependencies -- ) : compiled-xref ( word dependencies generic-dependencies -- )
[ [ drop crossref? ] { } assoc-filter-as f like ] bi@ [ [ drop crossref? ] { } assoc-filter-as ] bi@
[ "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) ]
bi-curry* bi ; bi-curry* bi ;
@ -65,4 +65,3 @@ compiled-generic-crossref [ H{ } clone ] initialize
[ compiled-crossref get delete-at ] [ compiled-crossref get delete-at ]
[ compiled-generic-crossref get delete-at ] [ compiled-generic-crossref get delete-at ]
tri ; tri ;