(define xtmdoc-strip-arg-type-annotations
(lambda (form)
(if (or (symbol? form)
(not (list? form)))
form
(map (lambda (arg)
(string->symbol (car (regex:split (symbol->string arg) ":"))))
form))))