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