diff options
| author | Asko Nomm <asko@bien.ee> | 2022-04-10 14:23:43 +0200 |
|---|---|---|
| committer | Asko Nomm <asko@bien.ee> | 2022-04-10 14:23:43 +0200 |
| commit | e79fcd4c45dbf1eb6e8ec79725fbe3c55f8b2c7d (patch) | |
| tree | a01106b853bcbbc9ced53b164698d3be56b9608f /src/clarktown/parser.clj | |
| parent | d4fd8d01eb9b57f1ee7b770ca24fc5e121b49edc (diff) | |
Re #4: Add full test coverage for quote blocks.
Diffstat (limited to 'src/clarktown/parser.clj')
| -rw-r--r-- | src/clarktown/parser.clj | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/clarktown/parser.clj b/src/clarktown/parser.clj index 0b6911d..afe9668 100644 --- a/src/clarktown/parser.clj +++ b/src/clarktown/parser.clj @@ -67,13 +67,14 @@ parsers (filter #(= nil (:matcher %)) parsers)] (if (empty? parsers) block - (loop [block block - renderers (:renderers (first parsers))] - (if (empty? renderers) - block - (let [renderer (first renderers)] - (recur (renderer block parsers) - (drop 1 renderers)))))))) + (recur (loop [block block + renderers (:renderers (first parsers))] + (if (empty? renderers) + block + (let [renderer (first renderers)] + (recur (renderer block parsers) + (drop 1 renderers))))) + (drop 1 parsers))))) (defn- parse-blocks |