fix format('~2D',[0]).

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1452 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2005-11-10 12:59:21 +00:00 · 2005-11-10 12:59:21 +00:00 · 3cf7a1f59a
commit 3cf7a1f59a
parent 01de9c0b38
1 changed files with 5 additions and 2 deletions
--- a/C/iopreds.c
+++ b/C/iopreds.c
@ -4070,9 +4070,12 @@ format(volatile Term otail, volatile Term oargs, int sno)
 	      dec = -dec;
 	      f_putc(sno, (int) '-');
 	    } else if (dec == 0) {
+	      /* make sure we write something */
 		f_putc(sno, '0');
+	      if (repeats == 0) {
 		break;
 	      }
+	    }
 	    i = dec;
 	    siz = 0;
 	    while (i > 0) {