From e79fcd4c45dbf1eb6e8ec79725fbe3c55f8b2c7d Mon Sep 17 00:00:00 2001 From: Asko Nomm Date: Sun, 10 Apr 2022 14:23:43 +0200 Subject: Re #4: Add full test coverage for quote blocks. --- src/clarktown/parser.clj | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'src/clarktown/parser.clj') 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 -- cgit v1.2.3