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