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

allow assert to be independent of file.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-05-02 23:29:48 +01:00
parent fee158c071
commit f0a617a01f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/cdmgr.c
View File

@ -2507,8 +2507,10 @@ p_compile_dynamic( USES_REGS1 )
if (RepAtom(AtomOfTerm(t1))->StrOfAE[0] == 'f') mode = asserta; if (RepAtom(AtomOfTerm(t1))->StrOfAE[0] == 'f') mode = asserta;
else mode = assertz; else mode = assertz;
} else mode = IntegerOfTerm(t1); } else mode = IntegerOfTerm(t1);
if (mode == assertz && consult_level) /* separate assert in current file from reconsult
mode = consult; if (mode == assertz && consult_level && mod == CurrentModule)
mode = consult;
*/
old_optimize = optimizer_on; old_optimize = optimizer_on;
optimizer_on = FALSE; optimizer_on = FALSE;
YAPEnterCriticalSection(); YAPEnterCriticalSection();