Cleanup some lint warnings.

[factor.git] / basis / peg / search / search.factor

diff --git a/basis/peg/search/search.factor b/basis/peg/search/search.factor
index 04e4affe39496333e97443f441193cdbbf7e5bdd..3b12ef80a255920f547c6e6ccadbdf0cd1077cff 100644 (file)
--- a/basis/peg/search/search.factor
+++ b/basis/peg/search/search.factor
@@ -16,12 +16,12 @@ MEMO: any-char-parser ( -- parser )
   [ drop t ] satisfy ;
 
 : search ( string parser -- seq )
-  any-char-parser [ drop f ] action 2array choice repeat0 
+  any-char-parser [ drop f ] action 2choice repeat0
   [ parse sift ] [ 3drop { } ] recover ;
 
 
 : (replace) ( string parser -- seq )
-  any-char-parser 2array choice repeat0 parse sift ;
+  any-char-parser 2choice repeat0 parse sift ;
 
 : replace ( string parser -- result )
  [  (replace) [ tree-write ] each ] with-string-writer ;