Paris7/compilation
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

mieux?

Browse source
This commit is contained in:
Mylloon 2023-12-05 13:52:18 +01:00
parent a90e8176e6
commit 756ede6179
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
flap/src/hopix/hopixTypechecker.ml
View file

@ -128,7 +128,7 @@ and synth_tagged
(fun x -> HopixTypes.internalize_ty tenv x) (fun x -> HopixTypes.internalize_ty tenv x)
(match tlist with (match tlist with
| Some t -> t | Some t -> t
| None -> HopixTypes.type_error cons.position "No types ??") | None -> HopixTypes.type_error cons.position "No types found")
in in
let tcons = let tcons =
try HopixTypes.instantiate_type_scheme cons_scheme tys with try HopixTypes.instantiate_type_scheme cons_scheme tys with
@ -181,7 +181,7 @@ and synth_record
let tlist' = let tlist' =
match tlist with match tlist with
| Some tlist -> List.map (fun t -> HopixTypes.internalize_ty tenv t) tlist | Some tlist -> List.map (fun t -> HopixTypes.internalize_ty tenv t) tlist
| None -> HopixTypes.type_error fl.position "No types ??" | None -> HopixTypes.type_error fl.position "No types found"
in in
(* Type checking *) (* Type checking *)
List.iter List.iter