From 9c9ef8b51b41b0b1034339d420f32207199b49c2 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 30 Apr 2004 14:08:46 +0000
Subject: Terminologie plus intuitive: evaluable -> unfoldable

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5716 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/tacred.ml  | 2 +-
 tactics/tacinterp.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml
index 8b34b5f8f5..792291d997 100644
--- a/pretyping/tacred.ml
+++ b/pretyping/tacred.ml
@@ -84,7 +84,7 @@ let destEvalRef c = match kind_of_term c with
   | Var id  -> EvalVar id
   | Rel n -> EvalRel n
   | Evar ev -> EvalEvar ev
-  | _ -> anomaly "Not an evaluable reference"
+  | _ -> anomaly "Not an unfoldable reference"
 
 let reference_opt_value sigma env = function
   | EvalConst cst -> constant_opt_value env cst
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml
index 09bf068bfc..495aa87fa0 100644
--- a/tactics/tacinterp.ml
+++ b/tactics/tacinterp.ml
@@ -213,7 +213,7 @@ let coerce_to_reference env = function
 let error_not_evaluable s =
   errorlabstrm "evalref_of_ref" 
     (str "Cannot coerce" ++ spc ()  ++ s ++ spc () ++
-     str "to an evaluable reference")
+     str "to an unfoldable reference")
 
 let coerce_to_evaluable_ref env c =
   let ev = match c with
-- 
cgit v1.2.3