From e666ed2072f381d35ef5ed2ce4e669ea704da0d4 Mon Sep 17 00:00:00 2001
From: clrenard
Date: Tue, 10 Jul 2001 07:45:19 +0000
Subject: anomaly -> error

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1837 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/command.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/toplevel/command.ml b/toplevel/command.ml
index 49f28922e7..0384ca8048 100644
--- a/toplevel/command.ml
+++ b/toplevel/command.ml
@@ -135,21 +135,21 @@ let hypothesis_def_var is_refining ident n c =
 (* 3| Mutual Inductive definitions *)
 
 let minductive_message = function 
-  | []  -> anomaly "no inductive definition"
+  | []  -> error "no inductive definition"
   | [x] -> [< pr_id x; 'sTR " is defined">]
   | l   -> hOV 0  [< prlist_with_sep pr_coma pr_id l;
 		     'sPC; 'sTR "are defined">]
 
 let recursive_message v =
   match Array.length v with
-    | 0 -> anomaly "no recursive definition"
+    | 0 -> error "no recursive definition"
     | 1 -> [< Printer.pr_global v.(0); 'sTR " is recursively defined">]
     | _ -> hOV 0 [< prvect_with_sep pr_coma Printer.pr_global v;
 		    'sPC; 'sTR "are recursively defined">]
 
 let corecursive_message v =
   match Array.length v with
-    | 0 -> anomaly "no corecursive definition"
+    | 0 -> error "no corecursive definition"
     | 1 -> [< Printer.pr_global v.(0); 'sTR " is corecursively defined">]
     | _ -> hOV 0 [< prvect_with_sep pr_coma Printer.pr_global v;
                     'sPC; 'sTR "are corecursively defined">]
-- 
cgit v1.2.3