From dd279791aca531cd0f38ce79b675c68e08a4ff63 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Thu, 26 Aug 1999 16:26:54 +0000
Subject: environnement sur

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@28 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/typeops.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/typeops.ml')

diff --git a/kernel/typeops.ml b/kernel/typeops.ml
index 23bac0b277..178963c48e 100644
--- a/kernel/typeops.ml
+++ b/kernel/typeops.ml
@@ -404,7 +404,7 @@ let cast_rel env cj tj =
       uj_type = tj.uj_val;
       uj_kind = whd_betadeltaiota env tj.uj_type }
   else 
-    error_actual_type CCI env cj tj
+    error_actual_type CCI env cj.uj_val cj.uj_type tj.uj_val
 
 (* Type of an application. *)
 
-- 
cgit v1.2.3