(define impc:ti:update-closure-name
(lambda (closure-name new-closure-name)
(let ((closure-data (assoc-strcmp closure-name *impc:ti:closure-cache*)))
(if closure-data
(begin
(set-car! closure-data new-closure-name))
(impc:compiler:print-compiler-error "tried to set type of unknown closure" closure-name)))))