impc:ti:cond   scheme

(define impc:ti:cond
  (lambda (ast)
    (cl:remove '()
               (if (null? ast) '()
                   (list 'if (caar ast)
                         (if (null? (cdar ast))
                             (impc:compiler:print-badly-formed-expression-error 'cond ast)
                             (apply list 'begin (cdar ast)))
                         (if (and
                              (not (null? (cdr ast)))
                              (eq? (caadr ast) 'else))
                             (apply list 'begin (cdadr ast))
                             (if (not (null? (cdr ast)))
                                 (impc:ti:cond (cdr ast)))))))))