/[guile]/guile/guile-core/libguile/num2float.i.c
ViewVC logotype

Diff of /guile/guile-core/libguile/num2float.i.c

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

revision 1.4 by dirk, Fri Mar 1 00:19:20 2002 UTC revision 1.5 by hanwen, Wed Aug 28 22:50:32 2002 UTC
# Line 33  FLOAT2NUM (FTYPE n) Line 33  FLOAT2NUM (FTYPE n)
33  {  {
34    SCM z;    SCM z;
35    z = scm_double_cell (scm_tc16_real, 0, 0, 0);    z = scm_double_cell (scm_tc16_real, 0, 0, 0);
36      /*
37        See scm_make_real().
38       */
39      scm_remember_upto_here_1 (z);
40    SCM_REAL_VALUE (z) = n;    SCM_REAL_VALUE (z) = n;
41    return z;    return z;
42  }  }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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