From 4b32388ae7d4153bed8d96e56ede13a467796f59 Mon Sep 17 00:00:00 2001
From: Mylloon <kennel.anri@tutanota.com>
Date: Sun, 12 Nov 2023 19:42:09 +0100
Subject: [PATCH] correct position?

---
 flap/src/hopix/hopixInterpreter.ml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/flap/src/hopix/hopixInterpreter.ml b/flap/src/hopix/hopixInterpreter.ml
index a53799f..e77f648 100644
--- a/flap/src/hopix/hopixInterpreter.ml
+++ b/flap/src/hopix/hopixInterpreter.ml
@@ -460,9 +460,7 @@ and case_value expr branches environment memory =
   in
   (* On fait le match avec ce qu'on a comme info *)
   match branches' with
-  | [] ->
-    (* TODO *)
-    error [] "error"
+  | [] -> error [ expr.position ] "erreur"
   | _ as env -> List.hd env
 
 and for_value id expr1 expr2 expr3 environment memory =