diff options
| author | soubiran | 2007-01-30 15:07:25 +0000 |
|---|---|---|
| committer | soubiran | 2007-01-30 15:07:25 +0000 |
| commit | 8243f3b8ad28e004cfcda85045533ee68d27bc09 (patch) | |
| tree | 7ed59ea31dd1ef7f85a0d8027572151216d90262 /kernel/modops.ml | |
| parent | ee43b8005b283750c4ef6c1d2b537b8db9f9e24c (diff) | |
suite du commit 9557
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9559 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/modops.ml')
| -rw-r--r-- | kernel/modops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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 = |