- expr = (Op2Expr zero (Op1Expr zero UnMinus (IntExpr zero 4)) BiPlus (IntExpr zero 7))
- expr2 = (FunExpr zero "test" [IntExpr zero 4] [])
- stmt = (IfStmt (BoolExpr zero True) [] [])
- prog = case evalRWST (g stmt) "end" ('Map'.newMap, labelStream) of
- Left (Error e) = abort e
- Right (_, prog) = toString prog
-//gen _ = toString [Lab "Test"
-// ,Instr "ldc" [Lit 1] "Eerste instructie"
-// ,Instr "ldc" [Lit 2] "Tweede instructie"]