test-46

flap/src/hopix/hopixTypechecker.ml

@@ -49,10 +49,12 @@ let rec check_pattern_linearity
 
 and linearity_variable v vars =
   if List.mem v.value vars
-  then
+  then (
-    HopixTypes.type_error
+    match v.value with
-      v.position
+    | Id i ->
-      "Il y a déjà une occurence de la variable dans le pattern"
+      HopixTypes.type_error
+        v.position
+        (Printf.sprintf "The variable %s has already appeared in this pattern." i))
   else v.value :: vars
 
 and linearity_pattern_list plist vars =