From 6078d402150d334a042cf270b143c1005990e6c8 Mon Sep 17 00:00:00 2001 From: Mylloon Date: Mon, 18 Dec 2023 15:46:29 +0100 Subject: [PATCH] la meme je crois? --- flap/src/fopix/hobixToFopix.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/flap/src/fopix/hobixToFopix.ml b/flap/src/fopix/hobixToFopix.ml index c6c570f..b7d94b6 100644 --- a/flap/src/fopix/hobixToFopix.ml +++ b/flap/src/fopix/hobixToFopix.ml @@ -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