la meme je crois?
This commit is contained in:
parent
86e8cead3a
commit
6078d40215
1 changed files with 2 additions and 3 deletions
|
@ -363,8 +363,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 ->
|
||||
|
@ -391,7 +390,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
|
||||
|
|
Reference in a new issue