Matitaweb:

[helm.git] / matitaB / components / content_pres / cicNotationPres.ml

diff --git a/matitaB/components/content_pres/cicNotationPres.ml b/matitaB/components/content_pres/cicNotationPres.ml
index b99851adde81fe7a2cfc2fc57cce493704d13c86..553ab1ae1ba2aa352439e0935255e8318eff52d5 100644 (file)
--- a/matitaB/components/content_pres/cicNotationPres.ml
+++ b/matitaB/components/content_pres/cicNotationPres.ml
@@ -130,9 +130,9 @@ let render status ?(prec=(-1)) =
         Box.H ([],
           (Box.Text ([], "?"^string_of_int n)::
             (if (l <> []) then [Box.H ([],local_context)] else [])))
-    | A.Literal (`Symbol (s,x))
-    | A.Literal (`Keyword (s,x))
-    | A.Literal (`Number (s,x)) ->
+    | A.Literal (_,`Symbol (s,x))
+    | A.Literal (_,`Keyword (s,x))
+    | A.Literal (_,`Number (s,x)) ->
        let attr = 
          match x with
          | None, None -> []