This commit is contained in:
Nicolas PENELOUX 2023-12-04 18:40:31 +01:00
parent 4805abe904
commit 07230fc0ed

View file

@ -157,7 +157,16 @@ and synth_tuple
and synth_sequence and synth_sequence
: HopixTypes.typing_environment -> expression Position.located list -> HopixTypes.aty : HopixTypes.typing_environment -> expression Position.located list -> HopixTypes.aty
= =
fun tenv elist -> failwith "Students! This is your job! (synth_sequence)" fun tenv elist ->
match elist with
| [] -> failwith "erreur sequence"
| [x] -> synth_expression tenv x
| x::l ->
(
let x_type = synth_expression tenv x in
check_equal_types x.position HopixTypes.hunit x_type
; synth_sequence tenv l)
and synth_define and synth_define
: HopixTypes.typing_environment -> value_definition -> expression Position.located : HopixTypes.typing_environment -> value_definition -> expression Position.located