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