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
1 changed files with 1 additions and 1 deletions

View File

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