com

remyzorg · Oct 6, 2017 · 891e664 · 891e664
1 parent 5b3861c
commit 891e664
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git 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
@@ -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