ns without a docstring or declarations was causing NPE

2011-01-25 12:18:17 -05:00 · 2011-01-25 12:18:17 -05:00 · 934a337e30
commit 934a337e30
parent dd65c7ccb2
1 changed files with 1 additions and 1 deletions
--- a/src/marginalia/parser.clj
+++ b/src/marginalia/parser.clj
@ -104,7 +104,7 @@
 (defmethod dispatch-form 'ns
  [form raw nspace-sym]
  (let [[ds r s] (extract-common-docstring form raw nspace-sym)]
-    (let [ds (when (> (count form) 2) (nth form 2))
+    (let [[_ _ ds & _] form
          ds (when (string? ds) ds)]
      [ds
       (strip-docstring ds r)