From 3cf7a1f59a252a423874f07ed520dd9dcec3fab7 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 10 Nov 2005 12:59:21 +0000
Subject: [PATCH] fix format('~2D',[0]).

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

diff --git a/C/iopreds.c b/C/iopreds.c
index f2ba7dc7a..faf4de8eb 100644
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -4070,8 +4070,11 @@ format(volatile Term otail, volatile Term oargs, int sno)
 	      dec = -dec;
 	      f_putc(sno, (int) '-');
 	    } else if (dec == 0) {
-	      f_putc(sno, '0');
-	      break;
+	      /* make sure we write something */
+		f_putc(sno, '0');
+	      if (repeats == 0) {
+		break;
+	      }
 	    }
 	    i = dec;
 	    siz = 0;