compileExpr-test.rkt

> (define e (let-values (((tokenVal currentToken) (getToken)))
              (readExpr tokenVal currentToken)))
12 + 3 - 4
> e
'((right (val . 4) (op . NUM))
  (left
   (right (val . 3) (op . NUM))
   (left (val . 12) (op . NUM))
   (op . PLUS_OP))
  (op . MINUS_OP))
> (Codes e '())
'(((opcode . SUB))
  ((opcode . PUSH) (operand . 4))
  ((opcode . ADD))
  ((opcode . PUSH) (operand . 3))
  ((opcode . PUSH) (operand . 12)))
> (compileExpr e)
'#(((opcode . PUSH) (operand . 12))
   ((opcode . PUSH) (operand . 3))
   ((opcode . ADD))
   ((opcode . PUSH) (operand . 4))
   ((opcode . SUB)))