Miss reference in defn arguments

[fbellomi]

In this snippet

(defn analyze-ns
  [source-nsym & {:keys [reader opt] :or {reader (pb-reader-for-ns source-nsym)}}]
  (let [source-path (munge-ns source-nsym)
        {:keys [analyze-results] :as m}
        (analyze-file source-path :reader reader :opt opt)]
    (assoc (dissoc m :forms :asts)
      :analyze-results {:source (slurp (io/resource source-path))
                        :namespace source-nsym
                        :forms (:forms m)
                        :asts (:asts m)})))

source-nsym in the :or map is marked as undefined

[danielcompton]

I can confirm this still happens in 0.1.58. A simpler reproduction case is

(defn mytest
  [source & {:keys [a b] :or {a (str source)}}]
  [source a b])