(define impc:ti:set-closure-body (lambda (closure-name body) (let ((closure-data (assoc-strcmp closure-name *impc:ti:closure-cache*))) (if closure-data (vector-set! (cdr closure-data) 3 body) #f))))