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

Fix proxy instance check

Browse source
This commit is contained in:
Michiel Borkent 2021-03-13 18:08:36 +01:00
parent c79d48cdde
commit 0b332431d3
3 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sci

@ -1 +1 @@
Subproject commit bf0fc870e5d9060ea79dd49594487d600bb64571 Subproject commit a10c28f012075a98dedb06f8158341a1b7baea9a

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

@ -12,8 +12,8 @@
(.getName clazz)) (.getName clazz))
(defn proxy-fn [{:keys [class interfaces protocols methods]}] (defn proxy-fn [{:keys [class interfaces protocols methods]}]
(let [interfaces (set (map class-name interfaces))] (let [interface-names (set (map class-name interfaces))]
(case [(class-name class) interfaces ] (case [(class-name class) interface-names]
;; This combination is used by pathom3 ;; This combination is used by pathom3
["clojure.lang.APersistentMap" #{"clojure.lang.IMeta" "clojure.lang.IObj"}] ["clojure.lang.APersistentMap" #{"clojure.lang.IMeta" "clojure.lang.IObj"}]
(proxy [clojure.lang.APersistentMap clojure.lang.IMeta clojure.lang.IObj sci.impl.types.IReified] [] (proxy [clojure.lang.APersistentMap clojure.lang.IMeta clojure.lang.IObj sci.impl.types.IReified] []

6
test/babashka/proxy_test.clj
View file

@ -63,6 +63,8 @@
(seq m) (seq m)
(meta (with-meta m {:a 1})) (meta (with-meta m {:a 1}))
(d/datafy m) (d/datafy m)
(instance? clojure.lang.APersistentMap m)
(instance? java.io.FilenameFilter m)
,]))) ,])))
(require 'clojure.pprint) (require 'clojure.pprint)
@ -72,5 +74,7 @@
5 3 5 false 5 3 5 false
'([:a 1] [:b 2] [:c 3]) '([:a 1] [:b 2] [:c 3])
{:a 1} {:a 1}
{:datafied true}] {:datafied true}
true
false]
(bb (with-out-str (clojure.pprint/pprint code)))))) (bb (with-out-str (clojure.pprint/pprint code))))))