13 lines
222 B
OCaml
13 lines
222 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 -> Int n.value
|
||
|
|
|
||
|
|
let analyze parsed =
|
||
|
|
analyze_expr parsed Baselib._types_
|