Merge branch 'jalon4' of gaufre.informatique.univ-paris-diderot.fr:Anri/compilation-m1-2023 into jalon4
This commit is contained in:
commit
f13440c6f2
1 changed files with 2 additions and 3 deletions
|
@ -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
|
||||
|
|
Reference in a new issue