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

fuel.xref: remove some unnecessary inlines

Slava Pestov 2009-05-29 05:37:48 -05:00
parent f67bbcbe65
commit 61e83c2fd5
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/fuel/xref/xref.factor
View File

@ -23,13 +23,13 @@ IN: fuel.xref
dup dup >vocab-link where normalize-loc 4array ; dup dup >vocab-link where normalize-loc 4array ;
: sort-xrefs ( seq -- seq' ) : sort-xrefs ( seq -- seq' )
[ [ first ] dip first <=> ] sort ; inline [ [ first ] dip first <=> ] sort ;
: format-xrefs ( seq -- seq' ) : format-xrefs ( seq -- seq' )
[ word? ] filter [ word>xref ] map ; inline [ word? ] filter [ word>xref ] map ;
: filter-prefix ( seq prefix -- seq ) : filter-prefix ( seq prefix -- seq )
[ drop-prefix nip length 0 = ] curry filter prune ; inline [ drop-prefix nip length 0 = ] curry filter prune ;
MEMO: (vocab-words) ( name -- seq ) MEMO: (vocab-words) ( name -- seq )
>vocab-link words [ name>> ] map ; >vocab-link words [ name>> ] map ;
@ -37,10 +37,10 @@ MEMO: (vocab-words) ( name -- seq )
: current-words ( -- seq ) : current-words ( -- seq )
manifest get manifest get
[ search-vocabs>> ] [ qualified-vocabs>> ] bi [ words>> ] bi@ [ search-vocabs>> ] [ qualified-vocabs>> ] bi [ words>> ] bi@
assoc-union keys ; inline assoc-union keys ;
: vocabs-words ( names -- seq ) : vocabs-words ( names -- seq )
prune [ (vocab-words) ] map concat ; inline prune [ (vocab-words) ] map concat ;
PRIVATE> PRIVATE>