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

fix setarg(0,T,_).

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@853 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2003-08-14 11:59:26 +00:00
parent 1e62accfaa
commit a154a3f6e8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/mavar.c
View File

@ -58,10 +58,13 @@ p_setarg(void)
Yap_Error(TYPE_ERROR_COMPOUND,ts,"setarg/3"); Yap_Error(TYPE_ERROR_COMPOUND,ts,"setarg/3");
return(FALSE); return(FALSE);
} }
if (i < 0 || i > (Int)ArityOfFunctor(FunctorOfTerm(ts))) { if (i < 1 || i > (Int)ArityOfFunctor(FunctorOfTerm(ts))) {
if (i<0) if (i<0)
Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO,ts,"setarg/3"); Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO,ts,"setarg/3");
return(FALSE); return(FALSE);
if (i==0)
Yap_Error(DOMAIN_ERROR_NOT_ZERO,ts,"setarg/3");
return(FALSE);
} }
pt = RepAppl(ts)+i; pt = RepAppl(ts)+i;
/* the evil deed is to be done now */ /* the evil deed is to be done now */