12 lines
229 B
OCaml
12 lines
229 B
OCaml
open Ast
|
|
open Ast.IR
|
|
open Baselib
|
|
|
|
exception Error of string * Lexing.position
|
|
|
|
let rec analyze_expr expr env =
|
|
match expr with
|
|
| Syntax.Int n -> Val (Int n.value)
|
|
;;
|
|
|
|
let analyze parsed = analyze_expr parsed Baselib._types_
|