don't use a cached version of ARG1 in choice-points

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1161 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-10-14 22:14:53 +00:00
parent 8eb4718654
commit ac9770bdf3
3 changed files with 19 additions and 16 deletions

View File

@@ -1995,12 +1995,12 @@ p_alarm(void)
left = alarm(IntegerOfTerm(t));
tout = MkIntegerTerm(left);
return(Yap_unify(ARG2,tout));
return Yap_unify(ARG2,tout);
}
#else
/* not actually trying to set the alarm */
if (IntegerOfTerm(t) == 0)
return(TRUE);
return TRUE;
Yap_Error(SYSTEM_ERROR, TermNil,
"alarm not available in this configuration");
return(FALSE);