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

correction Unbound PRecord

Browse source
This commit is contained in:
Nicolas PENELOUX 2023-12-06 17:23:45 +01:00
parent 9168e114c0
commit e0bb403e11
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -269,7 +269,10 @@ and pattern_record
let label = fst(List.hd plist) in let label = fst(List.hd plist) in
let type_cons,_,labels = let type_cons,_,labels =
let LId label_name = label.value in let LId label_name = label.value in
HopixTypes.lookup_type_constructor_of_label label.position label.value tenv try HopixTypes.lookup_type_constructor_of_label label.position label.value tenv with
| HopixTypes.Unbound (pos, Label (LId i)) ->
HopixTypes.type_error pos (Printf.sprintf "There is no type definition for label `%s'." label_name )
(* Printf.sprintf "erreur message ici"*) (* Printf.sprintf "erreur message ici"*)
in in