diff options
| -rw-r--r-- | printing/ppconstr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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. |