Allow any named type for the symbol name

This commit is contained in:
Joshua Suskalo 2021-09-16 14:10:07 -05:00
parent 268e1cb598
commit 9aa608a254

View file

@ -464,7 +464,7 @@
`(let [args-types# ~(:native-arglist args) `(let [args-types# ~(:native-arglist args)
ret-type# ~(:return-type args) ret-type# ~(:return-type args)
downcall# (downcall-handle downcall# (downcall-handle
(find-symbol ~(:symbol args)) (find-symbol ~(name (:symbol args)))
(method-type args-types# ret-type#) (method-type args-types# ret-type#)
(function-descriptor args-types# ret-type#)) (function-descriptor args-types# ret-type#))
~(:name args) (fn [& args#] ~(:name args) (fn [& args#]