/[guile]/guile/guile-core/libguile/numbers.c
ViewVC logotype

Diff of /guile/guile-core/libguile/numbers.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.162 by mvo, Wed May 8 20:08:16 2002 UTC revision 1.163 by mvo, Wed May 22 13:50:20 2002 UTC
# Line 2076  idbl2str (double f, char *a) Line 2076  idbl2str (double f, char *a)
2076    int exp = 0;    int exp = 0;
2077    
2078    if (f == 0.0)    if (f == 0.0)
2079      goto zero;                  /*{a[0]='0'; a[1]='.'; a[2]='0'; return 3;} */      {
2080    #ifdef HAVE_COPYSIGN
2081          double sgn = copysign (1.0, f);
2082    
2083          if (sgn < 0.0)
2084            a[ch++] = '-';
2085    #endif
2086    
2087          goto zero;        /*{a[0]='0'; a[1]='.'; a[2]='0'; return 3;} */
2088        }
2089    
2090    if (xisinf (f))    if (xisinf (f))
2091      {      {

Legend:
Removed from v.1.162  
changed lines
  Added in v.1.163

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26