From 704bbf749f44396c1a610f336b4e1cf0d25e9370 Mon Sep 17 00:00:00 2001 From: matitaweb Date: Wed, 9 Nov 2011 14:48:55 +0000 Subject: [PATCH] Matitaweb: fixes compilation errors and minor graphical problems. --- matitaB/components/grafite/grafiteAstPp.ml | 2 +- matitaB/matita/matitadaemon.ml | 2 +- matitaB/matita/matitaweb.css | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/matitaB/components/grafite/grafiteAstPp.ml b/matitaB/components/grafite/grafiteAstPp.ml index 78bb51971..d4d312bd2 100644 --- a/matitaB/components/grafite/grafiteAstPp.ml +++ b/matitaB/components/grafite/grafiteAstPp.ml @@ -59,7 +59,7 @@ let rec pp_ntactic status ~map_unicode_to_tex = | NAuto (_,(None,flgs)) -> "nautobatch" ^ String.concat " " (List.map (fun a,b -> a ^ "=" ^ b) flgs) - | NAuto (_,(Some l,flgs)) -> + | NAuto (_,(Some (_,l),flgs)) -> "nautobatch" ^ " by " ^ (String.concat "," (List.map (NotationPp.pp_term status) l)) ^ String.concat " " (List.map (fun a,b -> a ^ "=" ^ b) flgs) diff --git a/matitaB/matita/matitadaemon.ml b/matitaB/matita/matitadaemon.ml index f0baa4ed0..81fa956e1 100644 --- a/matitaB/matita/matitadaemon.ml +++ b/matitaB/matita/matitadaemon.ml @@ -214,7 +214,7 @@ let eval_statement include_paths (* (buffer : GText.buffer) *) status (* script -> let l = match l with | None -> None - | Some _,l' -> Some (List.map (fun x -> "",0,x) l') + | Some (_,l') -> Some (List.map (fun x -> "",0,x) l') in let trace_ref = ref [] in let status = NnAuto.auto_tac ~params:(l,a) ~trace_ref status in diff --git a/matitaB/matita/matitaweb.css b/matitaB/matita/matitaweb.css index cc9629e87..32d68f983 100644 --- a/matitaB/matita/matitaweb.css +++ b/matitaB/matita/matitaweb.css @@ -191,7 +191,7 @@ div.toolbar { margin-left: auto; margin-right: auto; height:100%; - width:350px; + width:400px; float:left; } -- 2.39.2