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