From ae047b5809a6710481f8651fb6ee434a3e3384bb Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Sat, 13 Mar 2021 14:59:44 +0100 Subject: [PATCH] Support this in proxy --- sci | 2 +- src/babashka/impl/proxy.clj | 24 ++++++++++++------------ 2 files changed, 13 insertions(+), 13 deletions(-) diff --git a/sci b/sci index 9dab6065..02409735 160000 --- a/sci +++ b/sci @@ -1 +1 @@ -Subproject commit 9dab60653651e94bc535f8a753def10b708ff7e8 +Subproject commit 02409735ac3e085a407352ea3d0fbd29a3777816 diff --git a/src/babashka/impl/proxy.clj b/src/babashka/impl/proxy.clj index ad8d8873..fd480745 100644 --- a/src/babashka/impl/proxy.clj +++ b/src/babashka/impl/proxy.clj @@ -12,18 +12,18 @@ (case (.getName ^Class class) "clojure.lang.APersistentMap" (proxy [clojure.lang.APersistentMap] [] - (iterator [] ((method-or-bust methods 'iterator))) - (containsKey [k] ((method-or-bust methods 'containsKey) k)) - (entryAt [k] ((method-or-bust methods 'entryAt) k)) + (iterator [] ((method-or-bust methods 'iterator) this)) + (containsKey [k] ((method-or-bust methods 'containsKey) this k)) + (entryAt [k] ((method-or-bust methods 'entryAt) this k)) (valAt - ([k] ((method-or-bust methods 'valAt) k)) - ([k default] ((method-or-bust methods 'valAt) k default))) - (cons [v] ((method-or-bust methods 'cons) v)) - (count [] ((method-or-bust methods 'count))) - (assoc [k v] ((method-or-bust methods 'assoc) k v)) - (without [k] ((method-or-bust methods 'without) k)) - (seq [] ((method-or-bust methods 'seq)))) + ([k] ((method-or-bust methods 'valAt) this k)) + ([k default] ((method-or-bust methods 'valAt) this k default))) + (cons [v] ((method-or-bust methods 'cons) this v)) + (count [] ((method-or-bust methods 'count) this)) + (assoc [k v] ((method-or-bust methods 'assoc) this k v)) + (without [k] ((method-or-bust methods 'without) this k)) + (seq [] ((method-or-bust methods 'seq) this))) "clojure.lang.AMapEntry" (proxy [clojure.lang.AMapEntry] [] - (key [] ((method-or-bust methods 'key))) - (val [] ((method-or-bust methods 'val)))))) + (key [] ((method-or-bust methods 'key) this)) + (val [] ((method-or-bust methods 'val) this)))))