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

tools.crossref: now 50% faster.

db4
John Benediktsson 2011-09-25 11:40:55 -07:00
parent a916bebcfe
commit bbeccadbbe
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/tools/crossref/crossref.factor
View File

@ -21,19 +21,16 @@ M: object quot-uses 2drop ;
M: word quot-uses over crossref? [ conjoin ] [ 2drop ] if ; M: word quot-uses over crossref? [ conjoin ] [ 2drop ] if ;
: (seq-uses) ( seq assoc -- )
[ quot-uses ] curry each ;
: seq-uses ( seq assoc -- ) : seq-uses ( seq assoc -- )
over visited get member-eq? [ 2drop ] [ over visited get member-eq? [ 2drop ] [
over visited get push over visited get push
(seq-uses) [ quot-uses ] curry each
] if ; ] if ;
: assoc-uses ( assoc' assoc -- ) : assoc-uses ( assoc' assoc -- )
over visited get member-eq? [ 2drop ] [ over visited get member-eq? [ 2drop ] [
over visited get push over visited get push
[ >alist ] dip (seq-uses) [ quot-uses ] curry [ bi@ ] curry assoc-each
] if ; ] if ;
M: array quot-uses seq-uses ; M: array quot-uses seq-uses ;
@ -62,7 +59,7 @@ M: pathname uses string>> source-file top-level-form>> [ uses ] [ { } ] if* ;
M: vocab uses drop f ; M: vocab uses drop f ;
: crossref-def ( defspec -- ) : crossref-def ( defspec -- )
dup uses crossref get add-vertex ; dup uses crossref get-global add-vertex ;
: defs-to-crossref ( -- seq ) : defs-to-crossref ( -- seq )
[ [