impc:ir:compiler:stack-alloc-without-size   scheme

(define impc:ir:compiler:stack-alloc-without-size
  (lambda (ast types hint?)
    (let* ((os (make-string 0)))
      (let* ;((t (impc:ir:get-type-str (impc:ir:convert-from-pretty-types (cadr ast)))))
          ((t (impc:ir:get-type-str (impc:ir:pointer-- (car hint?)))))
        (emit (string-append (impc:ir:gname "dat" (string-append t "*")) " = alloca " t ", align 16\n") os)
        (impc:ir:strip-space os)))))