From bab00fe499c57f97474a689deaac787cab90ba51 Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Tue, 18 Jul 2017 17:55:29 +0200 Subject: [PATCH] Missing parenthesis fixed (cherry picked from commit aa18ab71f3030f746de14168b9dae21c255e9b81) --- ocaml/num.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ocaml/num.ml b/ocaml/num.ml index 4f3c575..66e8a2d 100644 --- a/ocaml/num.ml +++ b/ocaml/num.ml @@ -127,7 +127,7 @@ let rec string_of_term = | `Lam _ as t -> "(" ^ string_of_term_no_pars_lam lev l t ^ ")" | `Match(t,(v,ar),bs_lift,bs,args) -> (* assert (bs_lift = lev); *) - "["^ varname lev l v ^ (if debug_display_arities then ":"^ string_of_int ar else "") ^",match " ^ string_of_term_no_pars lev l (t :> nf) ^ + "(["^ varname lev l v ^ (if debug_display_arities then ":"^ string_of_int ar else "") ^",match " ^ string_of_term_no_pars lev l (t :> nf) ^ " with " ^ String.concat " | " (List.map (fun (n,t) -> string_of_int n ^ " => " ^ string_of_term l (t :> nf)) !bs) ^ "] " ^ String.concat " " (List.map (string_of_term l) (args :> nf list)) ^ ")" and string_of_term_no_pars_app lev l = function -- 2.39.2