X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_disambiguation%2FcicTextualLexer2.ml;h=b28d3cae66de76a40b49725bdc829024dbcce848;hb=349a0e23813a7f33853e1f8fe48230276ac22934;hp=6bdbd8057015a58cc7bd119ff38dc5fc463aa849;hpb=aeec9dd128be72caf5a39bac3a0ef34b564ecd8b;p=helm.git diff --git a/helm/ocaml/cic_disambiguation/cicTextualLexer2.ml b/helm/ocaml/cic_disambiguation/cicTextualLexer2.ml index 6bdbd8057..b28d3cae6 100644 --- a/helm/ocaml/cic_disambiguation/cicTextualLexer2.ml +++ b/helm/ocaml/cic_disambiguation/cicTextualLexer2.ml @@ -49,7 +49,7 @@ let regexp commentend = "**)" let regexp blanks = blank+ let regexp num = digit+ let regexp tex_token = '\\' alpha+ -let regexp symbol = symbol_char+ +let regexp symbol = symbol_char let regexp ident_cont = alpha | num | '_' | '\'' let regexp ident_cont' = ident_cont | tex_token let regexp ident = (alpha ident_cont*) | ('_' ident_cont+)