Follow-up from 7f65096 deal with 'require not :require

clj-commons · Apr 23, 2019 · c2c40f0 · c2c40f0
1 parent 7f65096
commit c2c40f0
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/kibit/src/kibit/check/reader.clj b/kibit/src/kibit/check/reader.clj
@@ -68,8 +68,9 @@
                 (symbol (str (when prefix (str prefix ".")) form))
                 {:alias alias}))
 
-        (keyword? form) ; Some people write (:require ... :reload-all)
+        (#{:reload-all} form) ; Some people write (:require ... :reload-all)
         nil
+
         :else
         (throw (ex-info "Unparsable namespace form"
                         {:reason ::unparsable-ns-form
@@ -89,7 +90,7 @@
 (defmethod derive-aliases 'ns
   [[_ _ns & ns-asserts]]
   (->> ns-asserts
-       (group-by first)
+       (group-by (comp keyword name first))
        ((juxt :require :require-macros))
        (apply concat)
        (map (comp derive-aliases-from-deps rest))