camlp4: Allow ! in antiquotation names.

git-svn-id: http://caml.inria.fr/svn/ocaml/version/3.12@10558 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
bmeurer · Jun 10, 2010 · 1f89703 · 1f89703
1 parent d3d6fc4
commit 1f89703
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/camlp4/Camlp4/Struct/Lexer.mll b/camlp4/Camlp4/Struct/Lexer.mll
@@ -420,7 +420,7 @@ module Make (Token : Sig.Camlp4Token)
 
   and dollar c = parse
     | '$'                                     { set_start_p c; ANTIQUOT("", "") }
-    | ('`'? (identchar*|'.'+) as name) ':'
+    | ('`'? (identchar*|['.' '!']+) as name) ':'
       { with_curr_loc (antiquot name) (shift (1 + String.length name) c)        }
     | _                                           { store_parse (antiquot "") c }