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 don't do this!! I might have stored a choice-point and changed ASP
Yap_RecoverSlots(3); Yap_RecoverSlots(3);
*/ */
if (cl == NULL || !(pe->PredFlags & SourcePredFlag)) { if (cl == NULL) {
UNLOCKPE(45, pe); UNLOCKPE(45, pe);
return false; return false;
} }

View File

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