From a44c9288f545d83c848d7177364e480d845490fd Mon Sep 17 00:00:00 2001 From: Benjamin Loison Date: Sat, 10 Dec 2022 19:12:16 +0100 Subject: [PATCH] Translate two expressions of the AST from French to English --- src/pp.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/pp.ml b/src/pp.ml index 6ba3e4c..e5a52fe 100644 --- a/src/pp.ml +++ b/src/pp.ml @@ -131,7 +131,7 @@ let rec pp_equations fmt: t_eqlist -> unit = function pp_equations eqs let pp_node fmt node = - Format.fprintf fmt "\t∗ Nom du nœud : %s\n\t Inputs:\n%a\n\t Outputs:\n%a\n\t\ + Format.fprintf fmt "\t∗ Node name : %s\n\t Inputs:\n%a\n\t Outputs:\n%a\n\t\ \ \ Local variables:\n%a\n\t Equations:\n%a\n" node.n_name pp_varlist node.n_inputs @@ -147,7 +147,7 @@ let rec pp_nodes fmt nodes = let pp_ast fmt prog = Format.fprintf fmt - "Le programme est composé de %d nœud(s), listés ci-dessous :\n%a" + "The program is made of %d node(s), listed below :\n%a" (List.length prog) pp_nodes prog