luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support this in proxy

Browse source
This commit is contained in:
Michiel Borkent 2021-03-13 14:59:44 +01:00
parent a44f66e9a1
commit ae047b5809
2 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sci

@ -1 +1 @@
Subproject commit 9dab60653651e94bc535f8a753def10b708ff7e8 Subproject commit 02409735ac3e085a407352ea3d0fbd29a3777816

24
src/babashka/impl/proxy.clj
View file

@ -12,18 +12,18 @@
(case (.getName ^Class class) (case (.getName ^Class class)
"clojure.lang.APersistentMap" "clojure.lang.APersistentMap"
(proxy [clojure.lang.APersistentMap] [] (proxy [clojure.lang.APersistentMap] []
(iterator [] ((method-or-bust methods 'iterator))) (iterator [] ((method-or-bust methods 'iterator) this))
(containsKey [k] ((method-or-bust methods 'containsKey) k)) (containsKey [k] ((method-or-bust methods 'containsKey) this k))
(entryAt [k] ((method-or-bust methods 'entryAt) k)) (entryAt [k] ((method-or-bust methods 'entryAt) this k))
(valAt (valAt
([k] ((method-or-bust methods 'valAt) k)) ([k] ((method-or-bust methods 'valAt) this k))
([k default] ((method-or-bust methods 'valAt) k default))) ([k default] ((method-or-bust methods 'valAt) this k default)))
(cons [v] ((method-or-bust methods 'cons) v)) (cons [v] ((method-or-bust methods 'cons) this v))
(count [] ((method-or-bust methods 'count))) (count [] ((method-or-bust methods 'count) this))
(assoc [k v] ((method-or-bust methods 'assoc) k v)) (assoc [k v] ((method-or-bust methods 'assoc) this k v))
(without [k] ((method-or-bust methods 'without) k)) (without [k] ((method-or-bust methods 'without) this k))
(seq [] ((method-or-bust methods 'seq)))) (seq [] ((method-or-bust methods 'seq) this)))
"clojure.lang.AMapEntry" "clojure.lang.AMapEntry"
(proxy [clojure.lang.AMapEntry] [] (proxy [clojure.lang.AMapEntry] []
(key [] ((method-or-bust methods 'key))) (key [] ((method-or-bust methods 'key) this))
(val [] ((method-or-bust methods 'val)))))) (val [] ((method-or-bust methods 'val) this)))))