fix ~R bug (thanks to Carsten Mueller)
This commit is contained in:
parent
43e70f2003
commit
915ae47d18
@ -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++;
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user