sequence
Co-authored-by: Nicolas PENELOUX <nicolas.peneloux@free.fr>
This commit is contained in:
parent
72c323b2c8
commit
a4910af26d
1 changed files with 8 additions and 1 deletions
|
@ -157,7 +157,14 @@ 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
|
||||||
|
|
Reference in a new issue