impc:compiler:print-needs-zone-size-error   scheme

(define impc:compiler:print-needs-zone-size-error
  (lambda (expr-name)
    (print-with-colors *impc:compiler:pretty-print-error-color*
                       'default #t (print "Syntax Error"))
    (print " ")
    (print-with-colors *impc:compiler:pretty-print-name-color* 'default #t (print expr-name))
    (print " requires a zone size as its first argument\n")
    (if (impc:aot:currently-compiling?)
        (quit 2)
        (throw ""))))