From 0b6433c9b1de1a5726e29ca2268f9a2c6d8a2667 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Mon, 17 Nov 2014 20:32:53 +0100
Subject: Fixing semantics of Ppconstr.print_hunks.

---
 printing/ppconstr.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml
index 466cd8444f..e9fddd815c 100644
--- a/printing/ppconstr.ml
+++ b/printing/ppconstr.ml
@@ -72,7 +72,7 @@ end) = struct
   let print_hunks n pr pr_binders (terms, termlists, binders) unps =
     let env = ref terms and envlist = ref termlists and bll = ref binders in
     let pop r = let a = List.hd !r in r := List.tl !r; a in
-    let return unp pp1 pp2 = tag_unparsing unp (pp1 ++ pp2) in
+    let return unp pp1 pp2 = (tag_unparsing unp pp1) ++ pp2 in
     (* Warning:
        The following function enforces a very precise order of
        evaluation of sub-components.
-- 
cgit v1.2.3