Fixed initialization of (=) operator
This commit is contained in:
parent
7945ef9eb8
commit
ebc1f326b4
|
@ -236,7 +236,7 @@ and apply h op e_list =
|
||||||
| Etuple, _ -> assert false
|
| Etuple, _ -> assert false
|
||||||
(** TODO: init of safe/unsafe nodes
|
(** TODO: init of safe/unsafe nodes
|
||||||
This is a tmp fix so that pre x + 1 works.*)
|
This is a tmp fix so that pre x + 1 works.*)
|
||||||
| Efun (Modname { qual = "Pervasives" }), e_list ->
|
| (Eequal | Efun (Modname { qual = "Pervasives" })), e_list ->
|
||||||
List.fold_left (fun acc e -> itype (typing h e)) izero e_list
|
List.fold_left (fun acc e -> itype (typing h e)) izero e_list
|
||||||
| _ , e_list ->
|
| _ , e_list ->
|
||||||
List.iter (fun e -> initialized_exp h e) e_list; izero
|
List.iter (fun e -> initialized_exp h e) e_list; izero
|
||||||
|
|
Loading…
Reference in a new issue