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

fmt

Browse source
This commit is contained in:
Mylloon 2023-12-04 17:47:16 +01:00
parent 3237406430
commit a01eba04e3
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -41,9 +41,9 @@ let check_type_scheme
-> HopixTypes.aty_scheme * HopixTypes.typing_environment
=
fun env pos (ForallTy (ts, ty)) ->
let ts = List.map Position.value ts in
let env = HopixTypes.bind_type_variables pos env ts in
(HopixTypes.Scheme (ts, HopixTypes.internalize_ty env ty), env)
let ts = List.map Position.value ts in
let env = HopixTypes.bind_type_variables pos env ts in
HopixTypes.Scheme (ts, HopixTypes.internalize_ty env ty), env
;;
let synth_literal : HopixAST.literal -> HopixTypes.aty =
@ -215,7 +215,7 @@ and check_value_definition
| None -> failwith "Type missing."
| Some ty' ->
(*failwith "Students! This is your job! (check_value_definition | SimpleValue)"*)
let tys,_ = Position.located_pos (check_type_scheme env) ty' in
let tys, _ = Position.located_pos (check_type_scheme env) ty' in
HopixTypes.bind_value (Position.value id) tys env)
| RecFunctions _ ->
(* Je crois que c'est galère et donc c'est pas grave si on arrive pas