impc:ti:get-closure-names   scheme

(define impc:ti:get-closure-names
  (lambda (ast . args)
    (let ((blst '()))
      (let loop ((alst ast))
        (cond ((null? alst) '())
              ((atom? alst) '())
              ((pair? alst)
               (if (member (car alst) '(__make-closure __make-closure-h __make-closure-z __make-closure-s))
                   (set! blst (cons (caddr alst) blst)))
               (loop (car alst))
               (loop (cdr alst)))))
      blst)))