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 *)
|
(* 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
|
||||||
|
|
Reference in a new issue