Allow any named type for the symbol name
This commit is contained in:
parent
268e1cb598
commit
9aa608a254
1 changed files with 1 additions and 1 deletions
|
|
@ -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#]
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue