2022-03-08 09:20:19 +00:00
|
|
|
open Ast
|
|
|
|
|
open Ir
|
|
|
|
|
|
|
|
|
|
(* Processing state for this particular scope *)
|
2022-03-23 06:12:37 +00:00
|
|
|
type state = { parent : state option }
|
2022-03-08 09:20:19 +00:00
|
|
|
|
2022-03-23 06:12:37 +00:00
|
|
|
let lower (func : func) : (irexpr list, unit) result =
|
2022-03-08 09:20:19 +00:00
|
|
|
let { name = _; body = _ } = func in
|
|
|
|
|
Error ()
|
