impc:ti:letz   scheme

(define impc:ti:letz
  (lambda (ast)
    ;; (if (not (number? (eval (cadr ast))))
    ;;     (impc:compiler:print-needs-zone-size-error 'letz)
    (if (and (list? (cadr ast))
             (list? (caadr ast)))
        (impc:ti:memzone `(memzone ,(* 1024 4)
                                   (let ,(cadr ast) ,@(cddr ast))))
        (impc:ti:memzone `(memzone ,(cadr ast)
                                   (let ,(caddr ast) ,@(cdddr ast)))))))