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

fix for ~NN

Browse Source 
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; column_boundary = 0;
pad_max = pad_entries; pad_max = pad_entries;
case 'N': case 'N':
if (size_args) { if (!size_args) {
FreeAtomSpace(format_base); arg_size = 1;
return (FALSE);
} }
if (Stream[sno].linepos != 0) if (Stream[sno].linepos != 0)
{ {
format_putc(sno, (int) '\n'); format_putc(sno, (int) '\n');
column_boundary = 0;
pad_max = pad_entries; 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; break;
/* padding */ /* padding */
case '|': case '|':