diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
This commit is contained in:
vsc 2002-02-26 21:01:32 +00:00
parent fb8624f5ac
commit c15ce56e12
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/cdmgr.c
View File

@ -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;