From de6e0fdd9f3078b9b0ccf87ba8a7dcc9cc47c9aa Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 10 May 2007 15:31:46 +0000
Subject: Prise en compte réversibilité des notations de la forme "Notation Nil
 := @nil". Ajout @ref au niveau constr pour allègement syntaxe.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9819 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/notation.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'interp/notation.ml')

diff --git a/interp/notation.ml b/interp/notation.ml
index c31ef54ec8..aaab6a933f 100644
--- a/interp/notation.ml
+++ b/interp/notation.ml
@@ -187,10 +187,10 @@ let cases_pattern_key = function
   | PatCstr (_,ref,_,_) -> RefKey (ConstructRef ref)
   | _ -> Oth
 
-let aconstr_key = function
+let aconstr_key = function (* Rem: AApp(ARef ref,[]) stands for @ref *)
   | AApp (ARef ref,args) -> RefKey ref, Some (List.length args)
   | AList (_,_,AApp (ARef ref,args),_,_) -> RefKey ref, Some (List.length args)
-  | ARef ref -> RefKey ref, Some 0
+  | ARef ref -> RefKey ref, None
   | _ -> Oth, None
 
 let pattern_key = function
-- 
cgit v1.2.3