From b5df1925bbc14f441247349b200aa3f5828e8427 Mon Sep 17 00:00:00 2001
From: barras
Date: Wed, 18 Feb 2004 18:32:33 +0000
Subject: - fixed the Assert_failure error in kernel/modops - fixed the problem
 with passing atomic tactics to ltacs - restructured the distrib Makefile (can
 build a package from   the CVS working dir)

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

(limited to 'kernel/modops.ml')

diff --git a/kernel/modops.ml b/kernel/modops.ml
index 7459dcad8d..569580bfb1 100644
--- a/kernel/modops.ml
+++ b/kernel/modops.ml
@@ -125,12 +125,12 @@ let rec check_modpath_equiv env mp1 mp2 =
 let rec subst_modtype sub = function
   | MTBident ln -> MTBident (subst_kn sub ln)
   | MTBfunsig (arg_id, arg_b, body_b) ->
-      assert (not (occur_mbid arg_id sub));
+      if occur_mbid arg_id sub then failwith "capture";
       MTBfunsig (arg_id, 
 		 subst_modtype sub arg_b, 
 		 subst_modtype sub body_b)
   | MTBsig (sid1, msb) -> 
-      assert (not (occur_msid sid1 sub));
+      if occur_msid sid1 sub then failwith "capture";
       MTBsig (sid1, subst_signature sub msb)
 
 and subst_signature sub sign = 
-- 
cgit v1.2.3