#lang typed/racket/base

(provide (all-defined-out))

(require "il-structs.rkt")


(define-struct: machine ([val : Any]
                         [proc : Any]
                         [env : (Listof Any)]
                         [control : (Listof frame)]

                         [pc : Natural]                  ;; program counter
                         [text : (Vectorof Statement)]   ;; text of the program
                         ))


(define-struct: frame ([return : Symbol]))