(define impc:ir:compiler:null
(lambda (ast types)
(let* ((os (make-string 0))
(a (impc:ir:compiler (cadr ast) types))
(at (impc:ir:gname)))
(emit a os)
(emit (impc:ir:gname "val" "i1") " = icmp eq " (cadr at) " " (car at) ", null\n" os)
(impc:ir:strip-space os))))