CLJS-530: Skip metadata maps in ns forms

clojure · Jul 12, 2013 · 46295a6 · 46295a6
1 parent 1fb28f7
commit 46295a6
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/clj/cljs/analyzer.clj b/src/clj/cljs/analyzer.clj
@@ -608,8 +608,10 @@
 (defmethod parse 'ns
   [_ env [_ name & args :as form] _]
   (assert (symbol? name) "Namespaces must be named by a symbol.")
-  (let [docstring (if (string? (first args)) (first args) nil)
+  (let [docstring (if (string? (first args)) (first args))
         args      (if docstring (next args) args)
+        metadata  (if (map? (first args)) (first args))
+        args      (if metadata (next args) args)
         excludes
         (reduce (fn [s [k exclude xs]]
                   (if (= k :refer-clojure)