From c15ce56e12942f2999a8ab4a80db8971198745be Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 26 Feb 2002 21:01:32 +0000
Subject: [PATCH] if you try to reconsult over active clauses, kill the
 preexisting ones

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@383 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/cdmgr.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/C/cdmgr.c b/C/cdmgr.c
index 259ac10d0..71de997c9 100644
--- a/C/cdmgr.c
+++ b/C/cdmgr.c
@@ -754,7 +754,8 @@ not_was_reconsulted(PredEntry *p, Term t, int mode)
 	Int Arity = p->ArityOfPE;
 	
 #ifdef DEBUG
-	list_all_predicates_in_use();
+	if(0)
+	  list_all_predicates_in_use();
 #endif
 	ErrorMessage = ErrorSay;
 	Error_Term = t;
@@ -864,6 +865,8 @@ addclause(Term t, CODEADDR cp, int mode, int mod)
     spy_flag = TRUE;
   if (mode == consult)
     not_was_reconsulted(p, t, TRUE);
+  if (Error_TYPE == PERMISSION_ERROR_MODIFY_STATIC_PROCEDURE)
+    return;
   if (!is_dynamic(p)) {
     Clause     *clp = ClauseCodeToClause(cp);
     clp->ClFlags |= StaticMask;