diff options
author | 2017-09-25 09:51:09 +0200 | |
---|---|---|
committer | 2017-09-25 09:51:09 +0200 | |
commit | af900539d3d6c28b6f8f0373934d3a1286e9e44f (patch) | |
tree | a5f1467a05b74daef531901fe8cae73cce8ae39b /printing | |
parent | 00aa9287eb73ce9f3b41444ed23bc370cde828aa (diff) | |
parent | 46a17141e6a19fff9dfeb1ef18cbba054e34e3c3 (diff) |
Merge PR #1057: Reporting locations in error messages about notation formats.
Diffstat (limited to 'printing')
-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 37204c213..102c6ef6d 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -117,7 +117,7 @@ let tag_var = tag Tag.variable let pp1 = str s in return unp pp1 pp2 | UnpBox (b,sub) as unp :: l -> - let pp1 = ppcmd_of_box b (aux sub) in + let pp1 = ppcmd_of_box b (aux (List.map snd sub)) in let pp2 = aux l in return unp pp1 pp2 | UnpCut cut as unp :: l -> |