We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent fb72b3c commit abaa388Copy full SHA for abaa388
src/main/clojure/cljs/core.cljc
@@ -636,7 +636,7 @@
636
gfirst (gensym "first__")
637
has-rest (some #{'&} b)]
638
(core/loop [ret (core/let [ret (conj bvec gvec val)]
639
- (if has-rest
+ (if has-rests
640
(conj ret gseq (core/list `seq gvec))
641
ret))
642
n 0
@@ -1804,7 +1804,9 @@
1804
~(if (seq impls)
1805
`(extend-type ~t ~@(dt->et t impls fields))))
1806
;; don't emit static basis method w/ reify
1807
- ~@(when-not (.startsWith (name t) "t_reify")
+ ;; nor for core types
1808
+ ~@(when-not (or (string/starts-with? (name t) "t_reify")
1809
+ (= 'cljs.core (:ns v)))
1810
[`(set! (.-getBasis ~t) (fn [] '[~@fields]))])
1811
(set! (.-cljs$lang$type ~t) true)
1812
(set! (.-cljs$lang$ctorStr ~t) ~(core/str r))
0 commit comments