(define xtmdoc-scheme-macro-handler
(lambda (name-sym)
(list
'(category . "scheme macro")
(cons 'name (symbol->string name-sym))
(cons 'args (cadadr (caddr (get-closure-code (eval name-sym)))))
(list 'type)
(list 'docstring))))