X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_notation%2FcicNotationLexer.ml;fp=helm%2Focaml%2Fcic_notation%2FcicNotationLexer.ml;h=bd7c3969c6ec06e63c46bede0964eafa7a450a0d;hb=3147daf418c31528a67462c77b4cb3fd6431289c;hp=c1701c96b821c92bcbbdef9147166e272f69235e;hpb=86af949158e013178557c7fec7662ac06fae753c;p=helm.git

diff --git a/helm/ocaml/cic_notation/cicNotationLexer.ml b/helm/ocaml/cic_notation/cicNotationLexer.ml
index c1701c96b..bd7c3969c 100644
--- a/helm/ocaml/cic_notation/cicNotationLexer.ml
+++ b/helm/ocaml/cic_notation/cicNotationLexer.ml
@@ -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 =
   let tok_func stream =
 (*     let lexbuf = Ulexing.from_utf8_stream stream in *)
 (** XXX Obj.magic rationale.