Re-named "search" to "one" and "search-all" to "all".

5 files changed, 24 insertions, 24 deletions

diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux
index 3517a261c..46cfd01e6 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux
@@ -1238,12 +1238,12 @@
                                                     (|>> #Pass)
                                                     (|>> #Hint))
                                             (method-signature method-style method)))))))]
-    (case (list.search-all pass! candidates)
+    (case (list.all pass! candidates)
       (#.Cons method #.Nil)
       (wrap method)
 
       #.Nil
-      (/////analysis.throw ..no-candidates [class-name method-name inputsJT (list.search-all hint! candidates)])
+      (/////analysis.throw ..no-candidates [class-name method-name inputsJT (list.all hint! candidates)])
       
       candidates
       (/////analysis.throw ..too-many-candidates [class-name method-name inputsJT candidates]))))
@@ -1267,12 +1267,12 @@
                                      (:: @ map
                                          (if passes? (|>> #Pass) (|>> #Hint))
                                          (constructor-signature constructor))))))]
-    (case (list.search-all pass! candidates)
+    (case (list.all pass! candidates)
       (#.Cons constructor #.Nil)
       (wrap constructor)
 
       #.Nil
-      (/////analysis.throw ..no-candidates [class-name ..constructor-method inputsJT (list.search-all hint! candidates)])
+      (/////analysis.throw ..no-candidates [class-name ..constructor-method inputsJT (list.all hint! candidates)])
       
       candidates
       (/////analysis.throw ..too-many-candidates [class-name ..constructor-method inputsJT candidates]))))
diff --git a/stdlib/source/lux/tool/compiler/language/lux/program.lux b/stdlib/source/lux/tool/compiler/language/lux/program.lux
index 6e5c93edf..aef6fdab6 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/program.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/program.lux
@@ -42,11 +42,11 @@
                                    [id (archive.id module archive)
                                     [descriptor document] (archive.find module archive)]
                                    (wrap [[module id] (get@ #descriptor.registry descriptor)])))))]
-    (case (list.search (function (_ [[module module-id] registry])
-                         (do maybe.monad
-                           [program-id (artifact.remember ..name registry)]
-                           (wrap [module-id program-id])))
-                       registries)
+    (case (list.one (function (_ [[module module-id] registry])
+                      (do maybe.monad
+                        [program-id (artifact.remember ..name registry)]
+                        (wrap [module-id program-id])))
+                    registries)
       (#.Some program-context)
       (wrap program-context)
       
diff --git a/stdlib/source/lux/tool/compiler/meta/archive.lux b/stdlib/source/lux/tool/compiler/meta/archive.lux
index 172bb4d13..7ac12f55e 100644
--- a/stdlib/source/lux/tool/compiler/meta/archive.lux
+++ b/stdlib/source/lux/tool/compiler/meta/archive.lux
@@ -152,10 +152,10 @@
     (|>> :representation
          (get@ #resolver)
          dictionary.entries
-         (list.search-all (function (_ [module [id descriptor+document]])
-                            (case descriptor+document
-                              (#.Some _) (#.Some module)
-                              #.None #.None)))))
+         (list.all (function (_ [module [id descriptor+document]])
+                     (case descriptor+document
+                       (#.Some _) (#.Some module)
+                       #.None #.None)))))
 
   (def: #export (reserved? archive module)
     (-> Archive Module Bit)
@@ -221,10 +221,10 @@
     (let [(^slots [#..next #..resolver]) (:representation archive)]
       (|> resolver
           dictionary.entries
-          (list.search-all (function (_ [module [id descriptor+document]])
-                             (case descriptor+document
-                               (#.Some _) (#.Some [module id])
-                               #.None #.None)))
+          (list.all (function (_ [module [id descriptor+document]])
+                      (case descriptor+document
+                        (#.Some _) (#.Some [module id])
+                        #.None #.None)))
           [version next]
           (binary.run ..writer))))
 
diff --git a/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux b/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux
index 4a9d8605b..1619794d1 100644
--- a/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux
+++ b/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux
@@ -80,9 +80,9 @@
            :representation
            (get@ #artifacts)
            row.to-list
-           (list.search-all (|>> (get@ #category)
-                                 (case> (<tag> name) (#.Some name)
-                                        _ #.None)))))]
+           (list.all (|>> (get@ #category)
+                          (case> (<tag> name) (#.Some name)
+                                 _ #.None)))))]
 
     [#Definition definition definitions]
     [#Analyser analyser analysers]
diff --git a/stdlib/source/lux/tool/compiler/meta/io/archive.lux b/stdlib/source/lux/tool/compiler/meta/io/archive.lux
index 216295d3f..9e83cc367 100644
--- a/stdlib/source/lux/tool/compiler/meta/io/archive.lux
+++ b/stdlib/source/lux/tool/compiler/meta/io/archive.lux
@@ -359,10 +359,10 @@
 (def: initial-purge
   (-> (List [Bit [Module [archive.ID [Descriptor (Document .Module)]]]])
       Purge)
-  (|>> (list.search-all (function (_ [valid-cache? [module-name [module-id _]]])
-                          (if valid-cache?
-                            #.None
-                            (#.Some [module-name module-id]))))
+  (|>> (list.all (function (_ [valid-cache? [module-name [module-id _]]])
+                   (if valid-cache?
+                     #.None
+                     (#.Some [module-name module-id]))))
        (dictionary.from-list text.hash)))
 
 (def: (full-purge caches load-order)