iitalics
/
spice
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

comments

This commit is contained in:
tali 2023-12-14 16:13:34 -05:00
parent c080982044
commit 5ebb404276
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/compile/ir.ml
View File

@ -61,7 +61,7 @@ and lambda = {
} }
(* lower *) (* env *)
module Env = struct module Env = struct
type t = type t =
@ -98,12 +98,16 @@ module Env = struct
end end
end end
(* utils *)
let seq_r a b = Seq (b, a) let seq_r a b = Seq (b, a)
let union xs ys = let union xs ys =
List.sort_uniq compare List.sort_uniq (compare : id -> id -> int)
(List.rev_append ys xs) (List.rev_append ys xs)
(* lower *)
let lower ~lib (modl : Ast.modl) = let lower ~lib (modl : Ast.modl) =
let new_id = make_id_dispenser () in let new_id = make_id_dispenser () in