From 57080690d26ebcc9fcd86064f184dc1b52dc9b29 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 23 Sep 2006 12:03:48 +0000
Subject: 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
---
 interp/notation.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'interp/notation.ml')

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 ' ' 
-- 
cgit v1.2.3