continue fix for #102

camlp4 · Mar 1, 2016 · b42e1ba · b42e1ba
1 parent 87952ab
commit b42e1ba
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/camlp4/Camlp4Parsers/Camlp4OCamlParser.ml b/camlp4/Camlp4Parsers/Camlp4OCamlParser.ml
@@ -114,8 +114,7 @@ module Make (Syntax : Sig.Camlp4Syntax) = struct
       let rec loop = fun
         [ [] -> ()
         | [ (UIDENT _, _) :: [ (KEYWORD ".", _) :: rest ] ] -> loop rest
-        | [ (LIDENT _, _) :: [ (KEYWORD "=", _) :: _    ] ] -> ()
-        | [ (LIDENT _, _) :: [ (KEYWORD ";", _) :: _    ] ] -> ()
+        | [ (LIDENT _, _) :: [ (KEYWORD ("="|";"|"}"), _) :: _    ] ] -> ()
         | [ (LIDENT _, _) ] -> ()
         | _ -> raise Stream.Failure
         ]