CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-09-20 00:41:05 +03:00
Code Issues Projects Releases Wiki Activity

equality program

Browse Source
This commit is contained in:
adelaett 2023-03-17 17:20:35 +01:00
parent 61ad00f277
commit 9a34ee95b1
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/shared_ast/program.ml
View File

@ -58,14 +58,23 @@ let rec all_scopes code_item_list =
let to_expr p main_scope =
let _, main_scope_body = find_scope main_scope [] p.code_items in
Scope.unfold p.decl_ctx p.code_items
(Scope.get_body_mark main_scope_body)
(ScopeName main_scope)
let res =
Scope.unfold p.decl_ctx p.code_items
(Scope.get_body_mark main_scope_body)
(ScopeName main_scope)
in
assert (Bindlib.is_closed (Expr.Box.lift res));
res
let equal p p' =
let ss = all_scopes p.code_items in
let ss' = all_scopes p'.code_items in
ListLabels.for_all2 ss ss' ~f:(fun s s' ->
ScopeName.equal s s'
&& Expr.equal (Expr.unbox @@ to_expr p s) (Expr.unbox @@ to_expr p' s))
&&
let e1 = Expr.unbox @@ to_expr p s in
let e2 = Expr.unbox @@ to_expr p s' in
Expr.equal e1 e2)