summaryrefslogtreecommitdiff
path: root/src/clarktown
diff options
context:
space:
mode:
Diffstat (limited to 'src/clarktown')
-rw-r--r--src/clarktown/parser.clj15
-rw-r--r--src/clarktown/parsers/empty_block.clj2
2 files changed, 9 insertions, 8 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
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 _]
+ [_ _]
"")