From 682b727dd2c377f22e2abf43f753f0f3e234c2a3 Mon Sep 17 00:00:00 2001 From: Mylloon Date: Sun, 5 Nov 2023 00:54:46 +0100 Subject: [PATCH] oops sry --- flap/src/hopix/hopixInterpreter.ml | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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)!"