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