Allow for docstrings in ns forms (just discard for now)

clojure · May 1, 2012 · 2e46d19 · 2e46d19
1 parent e22b854
commit 2e46d19
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/clj/cljs/compiler.clj b/src/clj/cljs/compiler.clj
@@ -1061,7 +1061,9 @@
 
 (defmethod parse 'ns
   [_ env [_ name & args :as form] _]
-  (let [excludes
+  (let [docstring (if (string? (first args)) (first args) nil)
+        args      (if docstring (next args) args)
+        excludes
         (reduce (fn [s [k exclude xs]]
                   (if (= k :refer-clojure)
                     (do