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

Remove proxy-super

Browse source
This commit is contained in:
Michiel Borkent 2021-03-13 11:18:53 +01:00
parent 5555ea4ede
commit f58748ebbe
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -12,12 +12,8 @@
(case (.getName ^Class class) (case (.getName ^Class class)
"clojure.lang.APersistentMap" "clojure.lang.APersistentMap"
(proxy [clojure.lang.APersistentMap] [] (proxy [clojure.lang.APersistentMap] []
(iterator [] (if-let [m (get methods 'iterator)] (iterator [] ((method-or-bust methods 'iterator)))
(m) (containsKey [k] ((method-or-bust methods 'containsKey) k))
(proxy-super iterator))) ;; TODO: should we call proxy-super as a fallback always?
(containsKey [k] (if-let [m (get methods 'containsKey)]
(m k)
(proxy-super containsKey k)))
(entryAt [k] ((method-or-bust methods 'entryAt) k)) (entryAt [k] ((method-or-bust methods 'entryAt) k))
(valAt (valAt
([k] ((method-or-bust methods 'valAt) k)) ([k] ((method-or-bust methods 'valAt) k))