[Eva] Bug fix in the "smashed" function of traece_partitionning.ml

The function relied on "List.map" which is not tail-rec. With enough
plevel, it provoked a stack overflow. I've simply fixed it by performing
the mapped computation inside the fold directly.

src/plugins/eva/partitioning/trace_partitioning.ml

@@ -117,7 +117,9 @@ struct
   let smashed (s : store) : state Lattice_bounds.or_bottom =
     match expanded s with
     | [] -> `Bottom
-    | (_k, v1) :: l -> `Value (List.fold_left Domain.join v1 (List.map snd l))
+    | (_k, v1) :: l ->
+      let f acc (_k, v) = Domain.join acc v in
+      `Value (List.fold_left f v1 l)
 
   let contents (flow : flow) : state list =
     Flow.to_list flow