xtmdoc-polytype-handler   scheme

(define xtmdoc-polytype-handler
  (lambda (name-sym)
    (list
     '(category . "polymorphic type")
     (cons 'name (symbol->string name-sym))
     (list 'args)
     (cons 'type (string-join (map (lambda (pf) (impc:ir:pretty-print-type pf))
                                   (impc:ti:get-polytype-candidate-types (symbol->string name-sym)))
                              " "))
     (list 'docstring))))