12 lines
214 B
OCaml
12 lines
214 B
OCaml
|
open Ast
|
||
|
|
open Ir
|
||
|
|
|
||
|
|
(* Processing state for this particular scope *)
|
||
|
|
type state =
|
||
|
|
{ parent : state option
|
||
|
|
}
|
||
|
|
|
||
|
|
let lower (func:func) : (irexpr list, unit) result =
|
||
|
|
let { name = _; body = _ } = func in
|
||
|
|
Error ()
|