From 891e664fa414a2da484f310e567feeed19caecaf Mon Sep 17 00:00:00 2001 From: remy Date: Fri, 6 Oct 2017 15:32:57 +0200 Subject: [PATCH] com --- src/preproc/grc.ml | 2 +- tests/ppx/test2_ppx.ml | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/preproc/grc.ml b/src/preproc/grc.ml index b1eadaf..577e9e8 100644 --- a/src/preproc/grc.ml +++ b/src/preproc/grc.ml @@ -609,7 +609,7 @@ module Of_ast = struct | Seq (q,r) -> let surf_r = (surface env r pause @@ exit_node env p endp) in - enter_node env p @@ surface env q pause@@ surf_r + enter_node env p @@ surface env q pause @@ surf_r | Loop q -> enter_node env p diff --git a/tests/ppx/test2_ppx.ml b/tests/ppx/test2_ppx.ml index 1b13102..25d6789 100644 --- a/tests/ppx/test2_ppx.ml +++ b/tests/ppx/test2_ppx.ml @@ -424,3 +424,7 @@ let%sync paremit ~print:pdf s1 s2 = (pause; emit s1) || (emit s2; pause) +let%sync par2 ~print:pdf s1 s2 s3 = + (present s1 pause (emit s2); pause) + || + present s2 (emit s3) pause