fix ~R bug (thanks to Carsten Mueller)

This commit is contained in:
Vítor Santos Costa 2008-12-22 12:16:31 +00:00
parent 43e70f2003
commit 915ae47d18

View File

@ -5130,7 +5130,7 @@ format(volatile Term otail, volatile Term oargs, int sno)
numb = -numb; numb = -numb;
f_putc(sno, (int) '-'); f_putc(sno, (int) '-');
} }
while (numb/divfactor > radix) { while (numb/divfactor >= radix) {
divfactor *= radix; divfactor *= radix;
size++; size++;
} }