From db86a97393bde5378a01827deaf995dd1a8e91c8 Mon Sep 17 00:00:00 2001
From: Nicolas Pouillard <np@nicolaspouillard.fr>
Date: Wed, 16 Jun 2010 09:25:26 +0000
Subject: [PATCH] Camlp4: little fix for revised: accept empty do sequences.

git-svn-id: http://caml.inria.fr/svn/ocaml/version/3.12@10576 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 camlp4/Camlp4Parsers/Camlp4OCamlRevisedParser.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/camlp4/Camlp4Parsers/Camlp4OCamlRevisedParser.ml b/camlp4/Camlp4Parsers/Camlp4OCamlRevisedParser.ml
index 0c1d495a15d8..2d6f8b50fc81 100644
--- a/camlp4/Camlp4Parsers/Camlp4OCamlRevisedParser.ml
+++ b/camlp4/Camlp4Parsers/Camlp4OCamlRevisedParser.ml
@@ -719,7 +719,9 @@ Very old (no more supported) syntax:\n\
     ;
     do_sequence:
       [ [ seq = TRY ["{"; seq = sequence; "}" -> seq] -> seq
+        | TRY ["{"; "}"] -> <:expr< () >>
         | seq = TRY [seq = sequence; "done" -> seq] -> seq
+        | "done" -> <:expr< () >>
       ] ]
     ;
     infixop5: