la meme je crois?

This commit is contained in:
Mylloon 2023-12-18 15:46:29 +01:00
parent 86e8cead3a
commit 6078d40215
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

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