Revert "sequences: swap stack arguments for start/start*/subseq?."

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

diff --git a/basis/help/search/search.factor b/basis/help/search/search.factor
index b68193fa4177351f30c5e50cf0c07e811a03a3ce..87db04467f5b77987ce0c8ce8e5790b973e73b7a 100644 (file)
--- a/basis/help/search/search.factor
+++ b/basis/help/search/search.factor
@@ -38,7 +38,7 @@ MEMO: article-words ( name -- words )
     search-words [ { } ] [
         [ all-articles ] dip
         dup length 1 > [
-            '[ article-words _ subseq? ] filter
+            '[ article-words _ swap subseq? ] filter
         ] [
             first '[ article-words [ _ head? ] any? ] filter
         ] if