correct position?

2023-11-12 19:42:09 +01:00 · 2023-11-12 19:42:09 +01:00 · 4b32388ae7
commit 4b32388ae7
parent b92523f677
1 changed files with 1 additions and 3 deletions
--- 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 =