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:
@@ -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);
|
||||
|
Reference in New Issue
Block a user