get rid of annoying debugging message.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@697 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-11-20 15:04:37 +00:00
parent f339741dd2
commit 4e727b2f34
6 changed files with 18 additions and 24 deletions

View File

@@ -4715,20 +4715,20 @@ p_write_depth (void)
return (FALSE);
if (IsVarTerm (t1))
{
Term t = MkIntTerm (*max_depth);
Term t = MkIntTerm (max_depth);
if (!Yap_unify_constant(ARG1, t))
return (FALSE);
}
else
*max_depth = IntOfTerm (t1);
max_depth = IntOfTerm (t1);
if (IsVarTerm (ARG2))
{
Term t = MkIntTerm (*max_list);
Term t = MkIntTerm (max_list);
if (!Yap_unify_constant (ARG2, t))
return (FALSE);
}
else
*max_list = IntOfTerm (t2);
max_list = IntOfTerm (t2);
return (TRUE);
}

View File

@@ -364,7 +364,7 @@ writeTerm(Term t, int p, int depth, int rinfixarg)
/* context priority */
{
if (*max_depth != 0 && depth > *max_depth) {
if (max_depth != 0 && depth > max_depth) {
putAtom(Yap_LookupAtom("..."));
return;
}
@@ -423,7 +423,7 @@ writeTerm(Term t, int p, int depth, int rinfixarg)
int new_depth = depth + 1;
long sl= 0;
if (*max_list && eldepth > *max_list) {
if (max_list && eldepth > max_list) {
putAtom(Yap_LookupAtom("..."));
wrputc(']');
lastw = separator;