mieux?
This commit is contained in:
parent
a90e8176e6
commit
756ede6179
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||||
|
|
Reference in a new issue