Benjamin_Loison/Synchronous_reactive_systems
1
0
Fork 0
Code Issues 7 Pull Requests Packages Projects Releases Wiki Activity

Fix a typo in a comment in src/passes.ml

Browse Source
This commit is contained in:
Benjamin Loison 2023-01-06 15:09:52 +01:00
parent b2aa8bc6d5
commit 68d67bb53b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/passes.ml
View File

@ -657,7 +657,7 @@ let pass_eq_reordering verbose debug ast =
(fun acc vs -> (fun acc vs ->
(vars_of_patt (fst vs)) @ acc) init_vars (h :: t) in (vars_of_patt (fst vs)) @ acc) init_vars (h :: t) in
(** The filter below removes the equation of [h :: t] to those to (** The filter below removes the equation of [h :: t] to those to
* the list of equations be ordered *) * the list of equations to be ordered *)
pick_equations init_vars (eqs @ (h :: t)) pick_equations init_vars (eqs @ (h :: t))
(List.filter (List.filter
(fun eq -> List.for_all (fun e -> eq <> e) (h :: t)) remaining_equations) (fun eq -> List.for_all (fun e -> eq <> e) (h :: t)) remaining_equations)