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 ++++++++------- src/clarktown/parsers/empty_block.clj | 2 +- 2 files changed, 9 insertions(+), 8 deletions(-) (limited to 'src') 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 diff --git a/src/clarktown/parsers/empty_block.clj b/src/clarktown/parsers/empty_block.clj index f16bf6a..0ed5a08 100644 --- a/src/clarktown/parsers/empty_block.clj +++ b/src/clarktown/parsers/empty_block.clj @@ -13,5 +13,5 @@ (defn render "Renders an empty block." - [block _] + [_ _] "") -- cgit v1.2.3