X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_notation%2FcicNotationPt.ml;h=68ad7d83dd834898e10824d2dc4af863edfa3dda;hb=91a095f0686ee569ba035e4e30c7d071588cb8e7;hp=4ea310ee5d5d19d181b4e534107fd844bfd451c2;hpb=cd602bc57c4ceba6188b4cac0dbf5dad8f5df7b6;p=helm.git

diff --git a/helm/ocaml/cic_notation/cicNotationPt.ml b/helm/ocaml/cic_notation/cicNotationPt.ml
index 4ea310ee5..68ad7d83d 100644
--- a/helm/ocaml/cic_notation/cicNotationPt.ml
+++ b/helm/ocaml/cic_notation/cicNotationPt.ml
@@ -39,8 +39,6 @@ let fail floc msg =
   let (x, y) = loc_of_floc floc in
   failwith (Printf.sprintf "Error at characters %d - %d: %s" x y msg)
 
-type blob_context = [ `Ast | `Meta ]
-
 type term_attribute =
   [ `Loc of location                  (* source file location *)
   | `IdRef of string                  (* ACic pointer *)
@@ -48,7 +46,7 @@ type term_attribute =
   | `Level of int * Gramext.g_assoc   (* precedence, associativity *)
   | `XmlAttrs of (string option * string * string) list
       (* list of XML attributes: namespace, name, value *)
-  | `Raw of string * blob_context option  (* unparsed version *)
+  | `Raw of string                    (* unparsed version *)
   ]
 
 type literal =