diff options
| author | Hugo Herbelin | 2017-09-18 18:14:25 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2017-09-18 20:40:28 +0200 |
| commit | 46a17141e6a19fff9dfeb1ef18cbba054e34e3c3 (patch) | |
| tree | 32abe045a5f5b7a9e452f53c3dd2eeddaa2a75f1 /printing/ppconstr.ml | |
| parent | 26b9ad1d0423f8dc1dbd4d90557469db6a5eaa03 (diff) | |
Reporting locations in error messages about notation formats.
Diffstat (limited to 'printing/ppconstr.ml')
| -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 37204c2134..102c6ef6de 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 -> |