From a2ce571b14985a5d36d217ac86560093c71ed727 Mon Sep 17 00:00:00 2001 From: herbelin Date: Thu, 22 Mar 2001 14:39:53 +0000 Subject: Bug MUTCASE au lieu CASE git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1476 85f007b7-540e-0410-9357-904b9bb8a0f7 --- parsing/termast.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/parsing/termast.ml b/parsing/termast.ml index 796798be9..34b6cf65b 100644 --- a/parsing/termast.ml +++ b/parsing/termast.ml @@ -228,7 +228,7 @@ let rec ast_of_raw = function | ROldCase (_,isrec,typopt,tm,bv) -> warning "Old Case syntax"; - ope("MUTCASE",(ast_of_rawopt typopt) + ope("CASE",(ast_of_rawopt typopt) ::(ast_of_raw tm) ::(Array.to_list (Array.map ast_of_raw bv))) | RRec (_,fk,idv,tyv,bv) -> -- cgit v1.2.3