;; this is (possibly?) broken for poly funcs
(define impc:ir:function-calling-convention
(lambda (function-name)
(if (not (impc:ti:closure-or-nativefunc-exists? function-name))
#f
(if (impc:ti:closure-exists? function-name)
"fastcc"
"ccc"))))