diff --git a/flap/src/hopix/hopixInterpreter.ml b/flap/src/hopix/hopixInterpreter.ml index e88e513..03c9b9e 100644 --- a/flap/src/hopix/hopixInterpreter.ml +++ b/flap/src/hopix/hopixInterpreter.ml @@ -382,11 +382,10 @@ and expression _pos environment _memory = function (* TODO *) failwith "Students! This is your job (Field)!" | Tuple [] -> - (* Cas pour le Tuple vide *) + (* Cas pour le Tuple vide + * Un tuple vide ne contient rien (logique), donc on utilise un VUnit*) VUnit - | Tuple list_exp -> - (* Un tuple vide ne contient rien (logique), donc on utilise un VUnit*) - VTuple (List.map (expression' environment _memory) list_exp) + | Tuple list_exp -> VTuple (List.map (expression' environment _memory) list_exp) | Sequence _ -> (* TODO *) failwith "Students! This is your job (Sequence)!"