This commit is contained in:
Mylloon 2023-11-05 00:54:46 +01:00
parent c74809cc73
commit 682b727dd2
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

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