cleanup doc for macros

Author: dnolen

src/clj/cljs/repl.clj

@@ -901,7 +901,7 @@ itself (not its value) is returned. The reader macro #'x expands to (var x)."}})
       `(cljs.repl/print-doc
          (quote ~(update-in
                    (select-keys (ana-api/resolve &env name)
-                     [:ns :name :doc :forms :arglists])
+                     [:ns :name :doc :forms :arglists :macro :url])
                    [:name] clojure.core/name))))))
 
 (defmacro find-doc

src/cljs/cljs/repl.cljs

@@ -15,7 +15,9 @@
   (cond
     (:forms m) (doseq [f (:forms m)]
                  (println "  " f))
-    (:arglists m) (prn (second (:arglists m))))
+    (:arglists m) (if (:macro m)
+                    (prn (:arglists m))
+                    (prn (second (:arglists m)))))
   (if (:special-form m)
     (do
       (println "Special Form")