diff options
| author | herbelin | 2006-09-23 12:03:48 +0000 |
|---|---|---|
| committer | herbelin | 2006-09-23 12:03:48 +0000 |
| commit | 57080690d26ebcc9fcd86064f184dc1b52dc9b29 (patch) | |
| tree | 9a9d63063556168871e7d74c4346c0fac37d96ab /interp/notation.ml | |
| parent | 0975092c808d31b3cae8aa3f036f48faad748aca (diff) | |
Correction bug #1179 (result of Notation.decompose_notation_key in wrong order
leading to wrong/failing printing of notations such as "- 1" or "1 -").
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9167 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/notation.ml')
| -rw-r--r-- | interp/notation.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index 74263b7683..00aa7fb6c7 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -494,7 +494,7 @@ let make_notation_key symbols = let decompose_notation_key s = let len = String.length s in let rec decomp_ntn dirs n = - if n>=len then dirs else + if n>=len then List.rev dirs else let pos = try String.index_from s n ' ' |