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

Fix proxy exception

Browse source
This commit is contained in:
Michiel Borkent 2021-03-13 17:49:19 +01:00
parent 7262e1e709
commit c79d48cdde
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -6,7 +6,7 @@
(defn method-or-bust [methods k] (defn method-or-bust [methods k]
(or (get methods k) (or (get methods k)
(throw (UnsupportedOperationException. "Method not implemented: " k)))) (throw (UnsupportedOperationException. (str "Method not implemented: " k)))))
(defn class-name [^Class clazz] (defn class-name [^Class clazz]
(.getName clazz)) (.getName clazz))
@ -27,7 +27,8 @@
(containsKey [k] ((method-or-bust methods 'containsKey) this k)) (containsKey [k] ((method-or-bust methods 'containsKey) this k))
(entryAt [k] ((method-or-bust methods 'entryAt) this k)) (entryAt [k] ((method-or-bust methods 'entryAt) this k))
(valAt (valAt
([k] ((method-or-bust methods 'valAt) this k)) ([k]
((method-or-bust methods 'valAt) this k))
([k default] ((method-or-bust methods 'valAt) this k default))) ([k default] ((method-or-bust methods 'valAt) this k default)))
(cons [v] (cons [v]
(if-let [m (get methods 'cons)] (if-let [m (get methods 'cons)]