allow static_claus on static clauses wo source

This commit is contained in:
Vitor Santos Costa 2016-05-10 15:22:25 +01:00
parent f94bec3cfc
commit efe827db6c
2 changed files with 2 additions and 2 deletions

View File

@ -3631,7 +3631,7 @@ static Int fetch_next_static_clause(PredEntry *pe, yamop *i_code, Term th,
don't do this!! I might have stored a choice-point and changed ASP
Yap_RecoverSlots(3);
*/
if (cl == NULL || !(pe->PredFlags & SourcePredFlag)) {
if (cl == NULL) {
UNLOCKPE(45, pe);
return false;
}

View File

@ -572,7 +572,7 @@ be lost.
*->
'$stop_creeping'(_),
(
'$continue_debugging_goal'(yes, '$execute_clause'(G, M, R, CP))
'$creep'('$execute_clause'(G, M, R, CP), M)
;
InRedo = true
)