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

synth_variable Some case

Browse source
This commit is contained in:
Mylloon 2023-12-05 12:10:00 +01:00
parent 4492c9b3ea
commit f44b7a585e
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -106,7 +106,12 @@ and synth_variable
in
match tlist with
| None -> HopixTypes.instantiate_type_scheme ty []
| Some _ -> failwith "Students! This is your job! (synth_variable | tlist | Some)"
| Some tlist' ->
(* Pas testé *)
let atlist = List.map (fun t -> HopixTypes.internalize_ty tenv t) tlist' in
(try HopixTypes.instantiate_type_scheme ty atlist with
| HopixTypes.InvalidInstantiation { expected; given } ->
invalid_instantiation id.position expected given)
and synth_tagged
: HopixTypes.typing_environment -> constructor Position.located