(define impc:ir:make-struct-str-env
(lambda (t)
(let* ((os (make-string 0))
(args t))
(emit "{"os)
(dotimes (i (length args))
(if (> i 0) (emit ", " os))
(emit (impc:ir:get-type-str (cdr (list-ref args i))) "*" os))
(emit "}" os)
(impc:ir:strip-space os))))