 (defn form-position [form]
   (list (current-file-name)  (:line (meta form))))
 
+
+;; TODO: Add test.
 (defn compile-time-fallback-position []
   (list (current-file-name) @fallback-line-number))
 

        [midje.parsing.util.zip :only [skip-to-rightmost-leaf]])
  (:require [clojure.zip :as zip]
            [clojure.string :as str]))
            

;; COMPILE-TIME POSITIONS.
;; For annotating forms with information retrieved at runtime.
;; For reporting syntax errors

(def fallback-line-number (atom (Integer. 0)))

(defn set-fallback-line-number-from [form]

            (catch Throwable ex
              ;; `previous-lineish` returned nil: use the fallback-line-number
              nil)))]

    (if-let [lineish (best-lineish arrow-loc)]
      (reset! fallback-line-number lineish)
      (swap! fallback-line-number inc))))
