]> matita.cs.unibo.it Git - helm.git/commitdiff
added "'" as a valid (continuation) identifier character
authorStefano Zacchiroli <zack@upsilon.cc>
Tue, 10 Feb 2004 09:04:35 +0000 (09:04 +0000)
committerStefano Zacchiroli <zack@upsilon.cc>
Tue, 10 Feb 2004 09:04:35 +0000 (09:04 +0000)
helm/ocaml/cic_disambiguation/cicTextualLexer2.ml

index be2a034ac7f6c48a08828cc7685202c441416b9c..71574dbb1ce081e24da3455739cedba56f70ba76 100644 (file)
@@ -35,7 +35,7 @@ let regexp blanks = blank+
 let regexp num = digit+
 let regexp tex_token = '\\' alpha+
 let regexp symbol = [^ 'a' - 'z' 'A' - 'Z' '0' - '9' ' ' '\t' '\n' ]
-let regexp ident_cont = alpha | num | '_'
+let regexp ident_cont = alpha | num | '_' | '\''
 let regexp ident_cont' = ident_cont | tex_token
 let regexp ident = (alpha ident_cont*) | ('_' ident_cont+)
 let regexp ident' = ((alpha | tex_token) ident_cont'*) | ('_' ident_cont'+)