mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +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 */ /* #define GUILE_DEBUG_FREELIST */
/* Use engineering notation when converting numbers strings?
*/
#undef ENGNOT
/* {Unsupported Options} /* {Unsupported Options}
* *

9
libguile/numbers.c
View file

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