jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

remove the ; _ } from ocaml 3.12 ...

Browse source
This commit is contained in:
Léonard Gérard 2011-07-08 15:31:17 +02:00
parent 1e95cc4098
commit 57155b45e2
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
compiler/minils/transformations/tomato.ml
View file

@ -442,7 +442,7 @@ module EqClasses = Map.Make(
struct
type t = exp * ct * (int * int list) option list
let unsafe { e_desc = ed; _ } = match ed with
let unsafe { e_desc = ed } = match ed with
| Eapp (app, _, _) | Eiterator (_, app, _, _, _, _) -> app.a_unsafe
| _ -> false
@ -459,7 +459,7 @@ module EqClasses = Map.Make(
end)
let rec path_environment tenv =
let enrich_env pat { er_class = id; _ } env =
let enrich_env pat { er_class = id } env =
let rec enrich pat path env = match pat with
| Evarpat x -> Env.add x (id, path) env
| Etuplepat pat_list ->