Add a fresh variable for every pattern now, except for Constr (ok(?))

and Cap (to fix)

compile/compile.ml

@@ -177,13 +177,13 @@ and compile_branches env (brs : Typed.branches) =
 (* p_i / t_i -> br.Typed.br_pat / br.Typed.br_type 
  * p_i / t_i is used here to add elements to env.gamma *)
 and compile_branch env br =
-  (* We add a fresh variable "pat:<nb>" if the pattern is more than a variable
-     or a constant *)
+  (* We add a fresh variable "pat<nb>:x" for each pattern
+     TODO: Add a fresh variable for cap too. *)
   let t, _, d = br.Typed.br_pat.Patterns.descr in
   let fv = match d with
-    | Patterns.Times(_) -> incr Patterns.counter; (Patterns.fv br.Typed.br_pat)
-      @ [!Patterns.counter, "pat" ^ (string_of_int !Patterns.counter) ^ ":x"]
-    | _ -> Patterns.fv br.Typed.br_pat in
+    | Patterns.Constr(_) | Patterns.Cap(_) -> Patterns.fv br.Typed.br_pat
+    | _ -> incr Patterns.counter; (Patterns.fv br.Typed.br_pat)
+    @ [!Patterns.counter, "pat" ^ (string_of_int !Patterns.counter) ^ ":x"] in
   let pat = { br.Typed.br_pat with Patterns.descr=(t,fv,d); Patterns.fv=fv } in
   let env = List.fold_left enter_local env fv in
   let m = Patterns.filter (Types.descr (Patterns.accept pat)) pat in