remove unused try around Lists.prefix and chop.

If the list is not long enough, another branch is taken.

src/mlw/rust_printer.ml

@@ -386,17 +386,8 @@ module Translate = struct
                     if List.length el < n then
                       ([el], Some (n - List.length el))
                     else
-                      let args =
-                        try Lists.prefix n el
-                        with Invalid_argument s -> raise (TODO
-                          (rs.rs_name.id_string ^ " partial application (" ^
-                          string_of_int n ^ "/" ^ string_of_int (List.length el) ^
-                          "; " ^ s)) in
-                      let el' =
-                        try Lists.chop n el
-                        (* TODO remove try since short el is already handled *)
-                        with Invalid_argument s -> raise (TODO
-                          ("partial application; " ^ s)) in
+                      let args = Lists.prefix n el in
+                      let el' = Lists.chop n el in
                       let splits, partial = split_args el' nargs' in
                       (args :: splits, partial)
                 | [] ->