From bced653577bbd27b9343198140ba10076e1cfd07 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 8 Jun 2001 13:38:07 +0000
Subject: [PATCH] fix for ~NN

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@61 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/iopreds.c | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/C/iopreds.c b/C/iopreds.c
index 5e90736a8..54607ef6f 100644
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -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 '|':