]> gitweb.factorcode.org Git - factor.git/commitdiff
fuel.xref: remove some unnecessary inlines
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Fri, 29 May 2009 10:37:48 +0000 (05:37 -0500)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Fri, 29 May 2009 10:37:48 +0000 (05:37 -0500)
extra/fuel/xref/xref.factor

index 3e3279ece7ebbac5c9bdb649a081befaf91d6c77..608667bae76eb407c290fafd991203cd7f7f39a7 100644 (file)
@@ -23,13 +23,13 @@ IN: fuel.xref
     dup dup >vocab-link where normalize-loc 4array ;
 
 : sort-xrefs ( seq -- seq' )
-    [ [ first ] dip first <=> ] sort ; inline
+    [ [ first ] dip first <=> ] sort ;
 
 : format-xrefs ( seq -- seq' )
-    [ word? ] filter [ word>xref ] map ; inline
+    [ word? ] filter [ word>xref ] map ;
 
 : 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 )
     >vocab-link words [ name>> ] map ;
@@ -37,10 +37,10 @@ MEMO: (vocab-words) ( name -- seq )
 : current-words ( -- seq )
     manifest get
     [ search-vocabs>> ] [ qualified-vocabs>> ] bi [ words>> ] bi@
-    assoc-union keys ; inline
+    assoc-union keys ;
 
 : vocabs-words ( names -- seq )
-    prune [ (vocab-words) ] map concat ; inline
+    prune [ (vocab-words) ] map concat ;
 
 PRIVATE>