Skip to content

Commit abaa388

Browse files
committed
- can't use .startsWith in bootstrapped
1 parent fb72b3c commit abaa388

File tree

1 file changed

+4
-2
lines changed

1 file changed

+4
-2
lines changed

src/main/clojure/cljs/core.cljc

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -636,7 +636,7 @@
636636
gfirst (gensym "first__")
637637
has-rest (some #{'&} b)]
638638
(core/loop [ret (core/let [ret (conj bvec gvec val)]
639-
(if has-rest
639+
(if has-rests
640640
(conj ret gseq (core/list `seq gvec))
641641
ret))
642642
n 0
@@ -1804,7 +1804,9 @@
18041804
~(if (seq impls)
18051805
`(extend-type ~t ~@(dt->et t impls fields))))
18061806
;; don't emit static basis method w/ reify
1807-
~@(when-not (.startsWith (name t) "t_reify")
1807+
;; nor for core types
1808+
~@(when-not (or (string/starts-with? (name t) "t_reify")
1809+
(= 'cljs.core (:ns v)))
18081810
[`(set! (.-getBasis ~t) (fn [] '[~@fields]))])
18091811
(set! (.-cljs$lang$type ~t) true)
18101812
(set! (.-cljs$lang$ctorStr ~t) ~(core/str r))

0 commit comments

Comments
 (0)