 
         :else
         (vary-meta form assoc :line (:line (meta number-source)))))
-    
+




(defn basename [string]
  (last (str/split string #"/")))

;; clojure.test sometimes runs with *file* bound to #"NO_SOURCE.*".
;; This corrects that by looking up the stack. Note that it
;; produces a reasonable result for the repl, because the stack
;; frame it finds has NO_SOURCE_FILE as its "filename". 
(defn current-file-name []
  (if-not (re-find #"NO_SOURCE" *file*)
    (basename *file*)

            (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))))
