Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- cljs.user=> (def metas (atom {}))
- #'cljs.user/metas
- cljs.user=> (extend-type object
- #_=> IWithMeta
- #_=> (-with-meta [o meta]
- #_=> (swap! metas assoc (goog/getUid o) meta)
- #_=> o))
- nil
- cljs.user=> (extend-type object
- #_=> IMeta
- #_=> (-meta [o] (when (goog/hasUid o)
- #_=> (@metas (goog/getUid o)))))
- nil
- cljs.user=> (def o #js {:a 1})
- #'cljs.user/o
- cljs.user=> (with-meta o {:b 3})
- #js {:a 1, :closure_uid_857478408 17}
- cljs.user=> (meta *1)
- {:b 3}
Add Comment
Please, Sign In to add comment