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

fix for ~NN 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@61 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-06-08 13:38:07 +00:00
parent 68820cc370
commit bced653577
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
C/iopreds.c
View File

@ -4037,15 +4037,21 @@ format(Term tail, Term args, int sno)
column_boundary = 0;
pad_max = pad_entries;
case 'N':
if (size_args) {
FreeAtomSpace(format_base);
return (FALSE);
if (!size_args) {
arg_size = 1;
}
if (Stream[sno].linepos != 0)
{
format_putc(sno, (int) '\n');
column_boundary = 0;
pad_max = pad_entries;
}
if (arg_size > 1) {
for (i = 1; i < arg_size; i++)
format_putc(sno, (int) '\n');
column_boundary = 0;
pad_max = pad_entries;
}
break;
/* padding */
case '|':