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

typos

Browse source
This commit is contained in:
Mylloon 2023-12-05 04:32:24 +01:00
parent 52eabc2697
commit d2db0dfc4f
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -106,7 +106,7 @@ and synth_variable
in in
match tlist with match tlist with
| None -> HopixTypes.instantiate_type_scheme ty [] | None -> HopixTypes.instantiate_type_scheme ty []
| Some _ -> failwith "Students! This is your job! (synth_variable | tlist | None)" | Some _ -> failwith "Students! This is your job! (synth_variable | tlist | Some)"
and synth_tagged and synth_tagged
: HopixTypes.typing_environment -> constructor Position.located : HopixTypes.typing_environment -> constructor Position.located
@ -126,7 +126,7 @@ and synth_apply
let given = synth_expression tenv x in let given = synth_expression tenv x in
check_equal_types x.position ~expected ~given; check_equal_types x.position ~expected ~given;
droit droit
| _ -> failwith "" | _ -> failwith "Error: apply"
and synth_record and synth_record
: HopixTypes.typing_environment : HopixTypes.typing_environment
@ -167,7 +167,7 @@ and synth_sequence
= =
fun tenv elist -> fun tenv elist ->
match elist with match elist with
| [] -> failwith "erreur sequence" | [] -> failwith "Error: sequence"
| [ x ] -> synth_expression tenv x | [ x ] -> synth_expression tenv x
| x :: l -> | x :: l ->
let given = synth_expression tenv x in let given = synth_expression tenv x in