This commit is contained in:
Mylloon 2023-11-05 00:52:33 +01:00
parent 7842d4dc14
commit c74809cc73
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

@ -381,9 +381,11 @@ and expression _pos environment _memory = function
| Field _ -> | Field _ ->
(* TODO *) (* TODO *)
failwith "Students! This is your job (Field)!" failwith "Students! This is your job (Field)!"
| Tuple([]) -> (* Cas pour le Tuple vide *) | Tuple [] ->
VUnit (* Un tuple vide ne contient rien (logique), donc on utilise un VUnit*) (* Cas pour le Tuple vide *)
| Tuple(list_exp) -> VUnit
| Tuple list_exp ->
(* Un tuple vide ne contient rien (logique), donc on utilise un VUnit*)
VTuple (List.map (expression' environment _memory) list_exp) VTuple (List.map (expression' environment _memory) list_exp)
| Sequence _ -> | Sequence _ ->
(* TODO *) (* TODO *)