impc:ir:compiler:stack-alloc   scheme

(define impc:ir:compiler:stack-alloc
  (lambda (ast types hint?)
    (if *WINDOWS_ALLOC_BUG*
        (if (= (length ast) 1)
            (impc:ir:compiler:zone-alloc-without-size ast types hint?)
            (impc:ir:compiler:zone-alloc-with-size ast types hint?))
        (if (= (length ast) 1)
            (impc:ir:compiler:stack-alloc-without-size ast types hint?)
            (impc:ir:compiler:stack-alloc-with-size ast types hint?)))))