Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

* src/clj/cljs/core.clj: fix property access

  • Loading branch information...
commit 668b239eb8da0e380174aff9256c64754382646a 1 parent eca3178
@swannodette swannodette authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/clj/cljs/core.clj
View
6 src/clj/cljs/core.clj
@@ -254,12 +254,12 @@
(if (seq impls)
`(do
(deftype* ~t ~fields)
- (set! (.cljs$core$IPrintable$_pr_seq ~t) (fn [this#] (list ~(str r))))
+ (set! (.-cljs$core$IPrintable$_pr_seq ~t) (fn [this#] (list ~(str r))))
(extend-type ~t ~@(dt->et impls))
~t)
`(do
(deftype* ~t ~fields)
- (set! (.cljs$core$IPrintable$_pr_seq ~t) (fn [this#] (list ~(str r))))
+ (set! (.-cljs$core$IPrintable$_pr_seq ~t) (fn [this#] (list ~(str r))))
~t))))
(defn- emit-defrecord
@@ -364,7 +364,7 @@
(let [r (:name (cljs.compiler/resolve-var (dissoc &env :locals) rsym))]
`(let []
~(emit-defrecord rsym r fields impls)
- (set! (.cljs$core$IPrintable$_pr_seq ~r) (fn [this#] (list ~(str r))))
+ (set! (.-cljs$core$IPrintable$_pr_seq ~r) (fn [this#] (list ~(str r))))
~(build-positional-factory rsym r fields)
~(build-map-factory rsym r fields)
~r)))
Please sign in to comment.
Something went wrong with that request. Please try again.