(define impc:ti:pop_zone-check
(lambda (ast vars kts request?)
(if (<> (length ast) 1)
(impc:compiler:print-compiler-error "bad arity in call" ast))
;(println 'memzonecheck ast (list? (cadr ast)))
(list "%mzone*")))