;; ------------------------------------------------------------------
;; The Registers

(define reg-array (make-vector MAX-REG 0))

(define get-reg 
  (lambda (reg)
    (if (register? reg)
	(vector-ref reg-array reg)
	(machine-error "invalid reg number"))))

(define set-reg!
  (lambda (reg val)
    (if (and (register? reg) (value? val))
	(vector-set! reg-array reg val)
	(machine-error "invalid reg number"))))