From da041a01759780a869c458d7b60b907a1101199e Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 8 Nov 2009 06:22:39 -0600 Subject: [PATCH] compiler.crossref: fix bugs --- basis/compiler/crossref/crossref.factor | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/basis/compiler/crossref/crossref.factor b/basis/compiler/crossref/crossref.factor index 7941d5ee50..f3b65ce151 100644 --- a/basis/compiler/crossref/crossref.factor +++ b/basis/compiler/crossref/crossref.factor @@ -42,10 +42,10 @@ compiled-generic-crossref [ H{ } clone ] initialize [ (compiled-generic-usages) ] { } assoc>map ; : (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 -- ) - [ [ drop crossref? ] { } assoc-filter-as f like ] bi@ + [ [ drop crossref? ] { } assoc-filter-as ] bi@ [ "compiled-uses" compiled-crossref (compiled-xref) ] [ "compiled-generic-uses" compiled-generic-crossref (compiled-xref) ] bi-curry* bi ; @@ -65,4 +65,3 @@ compiled-generic-crossref [ H{ } clone ] initialize [ compiled-crossref get delete-at ] [ compiled-generic-crossref get delete-at ] tri ; -