* refactor last commit

Author: swannodette

src/main/clojure/cljs/externs.clj

@@ -73,11 +73,10 @@
             {:tag (get-tag ty)}
             (if (or (.isConstructor info) (.isInterface info))
               (let [qname (symbol (.. node getFirstChild getQualifiedName))]
-                (cond-> (merge {:tag 'Function}
-                          (when (.hasBaseType info)
-                            {:super (get-tag (.getBaseType info))}))
+                (cond-> {:tag 'Function}
                   (.isConstructor info) (merge {:ctor qname})
-                  (.isInterface info) (merge {:iface qname})))
+                  (.isInterface info)   (merge {:iface qname})
+                  (.hasBaseType info)   (merge {:super (get-tag (.getBaseType info))})))
               (if (or (.hasReturnType info)
                       (as-> (.getParameterCount info) c
                         (and c (pos? c))))