configurarion changes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@369 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-02-22 06:12:18 +00:00
parent 709b8b277b
commit f92947d61b
18 changed files with 399 additions and 406 deletions

View File

@@ -2098,7 +2098,7 @@ p_system_pred(void)
if (IsExtensionFunctor(funt)) {
return(FALSE);
}
while (funt == FunctorModule) {
if (funt == FunctorModule) {
Term nmod = ArgOfTerm(1, t1);
if (IsVarTerm(nmod)) {
Error(INSTANTIATION_ERROR,ARG1,"system_predicate/1");
@@ -2135,7 +2135,7 @@ p_cut_transparent(void)
if (IsExtensionFunctor(funt)) {
return(FALSE);
}
while (funt == FunctorModule) {
if (funt == FunctorModule) {
Term nmod = ArgOfTerm(1, t1);
if (IsVarTerm(nmod)) {
Error(INSTANTIATION_ERROR,ARG1,"system_predicate/1");