xtmdoc-builtin-handler   scheme

(define xtmdoc-builtin-handler
  (lambda (name-sym)
    (list
     '(category . "builtin")
     (cons 'name (symbol->string name-sym))
     (cons 'args (impc:ti:get-builtin-args (symbol->string name-sym)))
     (cons 'type
           (let ((type (impc:ti:get-builtin-type-str (symbol->string name-sym))))
             (if (string=? type "") '() type)))
     (cons 'docstring
           (let ((docstring (impc:ti:get-builtin-docstring (symbol->string name-sym))))
             (if (string=? docstring "") '() docstring))))))