mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

remove ENGNOT from __scm.h

Browse source 
* libguile/__scm.h: Remove #undef ENGNOT.
* libguile/numbers.c (idbl2str): Remove #ifdef ENGNOT sections.
This commit is contained in:
Andy Wingo 2011-05-15 10:52:37 +02:00
parent 80125469ef
commit 412ccea6c9
2 changed files with 0 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/__scm.h
View file

@ -153,10 +153,6 @@
/* #define GUILE_DEBUG_FREELIST */
/* Use engineering notation when converting numbers strings?
*/
#undef ENGNOT
/* {Unsupported Options}
*

9
libguile/numbers.c
View file

@ -5109,12 +5109,6 @@ idbl2str (double f, char *a, int radix)
exp++;
}
zero:
#ifdef ENGNOT
/* adding 9999 makes this equivalent to abs(x) % 3 */
dpt = (exp + 9999) % 3;
exp -= dpt++;
efmt = 1;
#else
efmt = (exp < -3) || (exp > wp + 2);
if (!efmt)
{
@ -5131,7 +5125,6 @@ idbl2str (double f, char *a, int radix)
}
else
dpt = 1;
#endif
do
{
@ -5153,7 +5146,6 @@ idbl2str (double f, char *a, int radix)
if (dpt > 0)
{
#ifndef ENGNOT
if ((dpt > 4) && (exp > 6))
{
d = (a[0] == '-' ? 2 : 1);
@ -5163,7 +5155,6 @@ idbl2str (double f, char *a, int radix)
efmt = 1;
}
else
#endif
{
while (--dpt)
a[ch++] = '0';