impc:ir:compiler:closure-refcheck   scheme

(define impc:ir:compiler:closure-refcheck
  (lambda (ast types . hint?)
    (let* ((os (make-string 0))
           (num (number->string (llvm:count++)))
           ;; (name-str (impc:ir:compiler (caddr ast) types))
           ;; (name (impc:ir:gname))
           (closure-str (if (and (symbol? (cadr ast))
                                 (impc:ti:closure-exists? (symbol->string (cadr ast))))
                            (impc:ir:compiler:closure-from-getter (symbol->string (cadr ast)))
                            (impc:ir:compiler (cadr ast) types)))
           (closure (impc:ir:gname)))
      (emit "\n; closure ref check \n" os)
      (emit closure-str os)
      ;; (emit name-str os)