/[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.156 by mvo, Mon Feb 11 18:06:49 2002 UTC revision 1.157 by dirk, Fri Mar 1 00:19:20 2002 UTC
# Line 1390  scm_i_mkbig (size_t nlen, int sign) Line 1390  scm_i_mkbig (size_t nlen, int sign)
1390    
1391    base = scm_gc_malloc (nlen * sizeof (SCM_BIGDIG), s_bignum);    base = scm_gc_malloc (nlen * sizeof (SCM_BIGDIG), s_bignum);
1392    
1393    v = scm_alloc_cell (SCM_MAKE_BIGNUM_TAG (nlen, sign), (scm_t_bits) base);    v = scm_cell (SCM_MAKE_BIGNUM_TAG (nlen, sign), (scm_t_bits) base);
1394    return v;    return v;
1395  }  }
1396    
# Line 2827  SCM Line 2827  SCM
2827  scm_make_real (double x)  scm_make_real (double x)
2828  {  {
2829    SCM z;    SCM z;
2830    z = scm_alloc_double_cell (scm_tc16_real, 0, 0, 0);    z = scm_double_cell (scm_tc16_real, 0, 0, 0);
2831    SCM_REAL_VALUE (z) = x;    SCM_REAL_VALUE (z) = x;
2832    return z;    return z;
2833  }  }

Legend:
Removed from v.1.156  
changed lines
  Added in v.1.157

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