(define impc:ir:compile:eval-var
(lambda (var t)
(let* ((os (make-string 0)))
(let ((typestr (impc:ir:get-type-str t)))
(emit (impc:ir:gname "val" typestr)
" = load " typestr ", " typestr
"* %" (symbol->string var) "Ptr\n" os)
(impc:ir:strip-space os)))))