(define impc:ir:compile:push_new_zone
(lambda (ast types)
(let* ((os (make-string 0))
(size-str (impc:ir:compiler (cadr ast) types))
(size (impc:ir:gname)))
;;(println 'size: size)
(if (<> (impc:ir:get-type-from-str (cadr size)) *impc:ir:si64*)
(impc:compiler:print-needs-zone-size-error 'push_new_zone))