Merge branch 'jalon4' of gaufre.informatique.univ-paris-diderot.fr:Anri/compilation-m1-2023 into jalon4

flap/src/fopix/hobixToFopix.ml

@@ -425,8 +425,7 @@ let translate (p : S.t) env =
   (* Revoir les explications c'est pas clair *)
   and apply env f arguments =
     (* D'abord, on traduit chaque arguments *)
-    let trad_argument argument = expression env argument in
-    let defs_args, trad_arguments = List.split (List.map trad_argument arguments) in
+    let defs_args, trad_arguments = expressions env arguments in
     (* On créé un FunCall en fonction de f *)
     match f with
     | S.Variable x when Dict.lookup x env.externals <> None ->
@@ -453,7 +452,7 @@ let translate (p : S.t) env =
       in
       (* Enfin, on concatène toute les parties de la fonction
          (la traduction de tout les arguments) *)
-      let defs = defs_func @ List.concat defs_args in
+      let defs = defs_func @ defs_args in
       (* Et on renvoie la def de la fonction ainsi que l'appel *)
       defs, defs_call
   in