mirror of
https://github.com/MorizzG/MLox.git
synced 2025-12-06 04:22:41 +00:00
10 lines
358 B
OCaml
10 lines
358 B
OCaml
|
type stmt = Expr of Expr.expr_node | Print of Expr.expr_node
|
||
|
|
and stmt_node = { stmt : stmt; pos : Error.code_pos }
|
||
|
|
|
||
|
|
let make_expr_stmt (pos : Error.code_pos) (expr : Expr.expr_node) : stmt_node =
|
||
|
|
let stmt = Expr expr in
|
||
|
|
{ stmt; pos }
|
||
|
|
|
||
|
|
let make_print (pos : Error.code_pos) (expr : Expr.expr_node) : stmt_node =
|
||
|
|
let stmt = Print expr in
|
||
|
|
{ stmt; pos }
|