essay at synth_tannot
This commit is contained in:
parent
11b86b509a
commit
7e4a6b91bd
1 changed files with 5 additions and 3 deletions
|
@ -145,9 +145,11 @@ and synth_tannot
|
|||
: HopixTypes.typing_environment -> expression Position.located -> ty Position.located
|
||||
-> HopixTypes.aty
|
||||
=
|
||||
fun tenv expr t ->
|
||||
(* TODO : ici on ne peut pas synthesisé. cf Cours*)
|
||||
failwith "Students! This is your job! (synth_tannot)"
|
||||
fun tenv expr ty ->
|
||||
(* Pas sûr de ça *)
|
||||
let ty' = synth_expression tenv expr in
|
||||
check_equal_types expr.position ~expected:(HopixTypes.internalize_ty tenv ty) ~given:ty';
|
||||
ty'
|
||||
|
||||
and synth_field
|
||||
: HopixTypes.typing_environment -> expression Position.located
|
||||
|
|
Reference in a new issue