xtmdoc-get-args-from-form   scheme

(define xtmdoc-get-args-from-form
  (lambda (form)
    (if (null? form)
        #f
        (if (equal? (car form) 'lambda)
            (xtmdoc-strip-arg-type-annotations (cadr form))
            (if (and (list? (car form)) (equal? (caar form) 'lambda))
                (xtmdoc-strip-arg-type-annotations (cadar form))
                ;; recurse!
                (xtmdoc-get-args-from-form (if (member (car form) '(let let* letz))
                                               (cddr form)
                                               (cdr form))))))))