(define impc:ir:get-arity-from-pretty-closure (lambda (pretty-str) (let ((arg-strings (impc:ir:get-pretty-closure-arg-strings pretty-str))) (if (list? arg-strings) (- (length arg-strings) 1) #f))))