/[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.3 by mvo, Sun Nov 25 15:21:07 2001 UTC revision 1.4 by dirk, Fri Mar 1 00:19:20 2002 UTC
# Line 32  SCM Line 32  SCM
32  FLOAT2NUM (FTYPE n)  FLOAT2NUM (FTYPE n)
33  {  {
34    SCM z;    SCM z;
35    z = scm_alloc_double_cell (scm_tc16_real, 0, 0, 0);    z = scm_double_cell (scm_tc16_real, 0, 0, 0);
36    SCM_REAL_VALUE (z) = n;    SCM_REAL_VALUE (z) = n;
37    return z;    return z;
38  }  }

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

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