Merge pull request #241 from ZehCnaS34/finder-multiple-clauses

Refactor meander.interpreter.epsion/finder
noprompt · Jun 10, 2023 · 91c9f38 · 91c9f38
2 parents 779bfb4 + 05edc34
commit 91c9f38
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/meander/interpreter/epsilon.cljc b/src/meander/interpreter/epsilon.cljc
@@ -529,7 +529,7 @@
    (finder-from [query f]))
   ([query f & more-clauses]
    (assert (even? (count more-clauses)) "finder expects an even number of arguments")
-   (finder-from (cons [query f] (partition 2 more-clauses)))))
+   (finder-from (cons query (cons f more-clauses)))))
 
 (defn searcher-from
   "Takes a sequence of [query f] pairs and returns a function which