 (defn find-template-dependencies [filename & [templates]]
   (with-open [rdr (reader (str (resource-path) filename))]
     (loop [templates (assoc (or templates {}) filename {})
-           ch       (read-char rdr)]
+           ch        (read-char rdr)]
       (if ch                  
         (recur
           (if (= *tag-open* ch)

         (when ch                            
           (->> 
             (if (= *tag-open* ch) (read-tag-str rdr filename blocks) ch)
             (.append buf))            
           (recur (read-char rdr)))))))

(defn find-blocks [template templates block-map]  

          (read-char rdr))
        templates))))

(defn consume-block [rdr & [buf]]
  (loop [ch (read-char rdr)
         blocks-to-close 1]
    (when (and (pos? blocks-to-close) ch)
      (if (= *tag-open* ch)
        (let [content (read-tag-content rdr)]
          (when buf (.append buf content))
          (recur (read-char rdr) 
                 (cond 
