diff --git a/src/clj_parser/core.clj b/src/clj_parser/core.clj index 810cc42..327ac8a 100644 --- a/src/clj_parser/core.clj +++ b/src/clj_parser/core.clj @@ -59,15 +59,15 @@ (defn parse-char [ch] (satisfy #(= % ch))) +(def identity-parser + (fn [s] + ["" s])) + (defn parse-word [word] (reduce (fn [parser ch] (<=> parser (parse-char ch))) identity-parser word)) -(def identity-parser - (fn [s] - ["" s])) - (defn optional-value [val] (fn [s] [val s]))