From 8243f3b8ad28e004cfcda85045533ee68d27bc09 Mon Sep 17 00:00:00 2001
From: soubiran
Date: Tue, 30 Jan 2007 15:07:25 +0000
Subject: suite du commit 9557

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

(limited to 'kernel')

diff --git a/kernel/modops.ml b/kernel/modops.ml
index ad7b7d9ad4..bd1151544e 100644
--- a/kernel/modops.ml
+++ b/kernel/modops.ml
@@ -142,12 +142,12 @@ let rec subst_modtype sub = function
        M to M' I must substitute M' for X in "Module N := X". *)
   | MTBident ln -> MTBident (subst_kn sub ln)
   | MTBfunsig (arg_id, arg_b, body_b) ->
-      if occur_mbid arg_id sub then raise (Circularity (debug_string_of_mbid arg_id));
+      if occur_mbid arg_id sub then raise (Circularity (string_of_mbid arg_id));
       MTBfunsig (arg_id, 
 		 subst_modtype  sub arg_b, 
 		 subst_modtype  sub body_b)
   | MTBsig (sid1, msb) -> 
-      if occur_msid sid1 sub then raise (Circularity (debug_string_of_msid sid1));
+      if occur_msid sid1 sub then raise (Circularity (string_of_msid sid1));
       MTBsig (sid1, subst_signature sub msb)
 
 and subst_signature sub sign = 
-- 
cgit v1.2.3