added/exported pp_pos & pp_attribute

[helm.git] / helm / ocaml / cic_notation / cicNotationLexer.ml

diff --git a/helm/ocaml/cic_notation/cicNotationLexer.ml b/helm/ocaml/cic_notation/cicNotationLexer.ml
index db0eb3de8242e94c7f21d08afc78a0fc655a1783..8ee8eca78423aa3de66bcf9cdaee34093639fea8 100644 (file)
--- a/helm/ocaml/cic_notation/cicNotationLexer.ml
+++ b/helm/ocaml/cic_notation/cicNotationLexer.ml
@@ -37,7 +37,7 @@ let regexp ident_letter = [ 'a' - 'z' 'A' - 'Z' ]
 let regexp ligature_char = [ "'`~!?@*()[]<>-+=|:;.,/\"" ]
 let regexp ligature = ligature_char ligature_char+
 
-let regexp ident_decoration = '\'' | '!' | '?' | '`'
+let regexp ident_decoration = '\'' | '?' | '`'
 let regexp ident_cont = ident_letter | xml_digit | '_'
 let regexp ident = ident_letter ident_cont* ident_decoration*
 
@@ -146,7 +146,7 @@ let return_eoi lexbuf = return lexbuf ("EOI", "")
 
 let remove_quotes s = String.sub s 1 (String.length s - 2)
 
-let mk_lexer ?(use_ligatures = false) token =
+let mk_lexer token =
   let tok_func stream =
 (*     let lexbuf = Ulexing.from_utf8_stream stream in *)
 (** XXX Obj.magic rationale.