From f300bb7cb41b994a7331a3a95c35e651189e03fc Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Sun, 13 Nov 2005 09:49:18 +0000
Subject: [PATCH] fix .0002 in new ~D

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

diff --git a/C/iopreds.c b/C/iopreds.c
index b30c30373..c57338e08 100644
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -4110,7 +4110,15 @@ format(volatile Term otail, volatile Term oargs, int sno)
 	      }
 	    }
 	    if (repeats) {
+	      if (ptr == tmp1 ||
+		  ptr[-1] == '-') {
+		f_putc(sno, (int) '0');
+	      }
 	      f_putc(sno, (int) '.');
+	      while (repeats > siz) {
+		f_putc(sno, (int) '0');
+		repeats--;
+	      }
 	      while (repeats) {
 		f_putc(sno, (int) (*ptr++));
 		repeats--;