Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[camlp4]: Fix the bug #4177 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7763 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Nicolas Pouillard 2006-11-29 16:50:37 +00:00
parent eaf64f01e5
commit d66fd147fa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
camlp4/Camlp4Parsers/OCaml.ml
View File

@ -261,9 +261,9 @@ module Make (Syntax : Sig.Camlp4Syntax.S) = struct
Gram.Entry.of_parser "test_label_eq" Gram.Entry.of_parser "test_label_eq"
(test 1 where rec test lev strm = (test 1 where rec test lev strm =
match stream_peek_nth lev strm with match stream_peek_nth lev strm with
[ Some (UIDENT _ | LIDENT _ | KEYWORD ".") -> [ Some (ANTIQUOT ("lid"|"exp"|"") _ | UIDENT _ | LIDENT _ | KEYWORD ".") ->
test (lev + 1) strm test (lev + 1) strm
| Some (KEYWORD "=") -> () | Some (ANTIQUOT "binding" _ | KEYWORD ("="|"}")) -> ()
| _ -> raise Stream.Failure ]) | _ -> raise Stream.Failure ])
; ;