/[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.5 by hanwen, Wed Aug 28 22:50:32 2002 UTC revision 1.6 by ghouston, Tue Sep 24 22:21:01 2002 UTC
# Line 31  NUM2FLOAT (SCM num, unsigned long int po Line 31  NUM2FLOAT (SCM num, unsigned long int po
31  SCM  SCM
32  FLOAT2NUM (FTYPE n)  FLOAT2NUM (FTYPE n)
33  {  {
34    SCM z;    SCM z = scm_double_cell (scm_tc16_real, 0, 0, 0);
35    z = scm_double_cell (scm_tc16_real, 0, 0, 0);  
   /*  
     See scm_make_real().  
    */  
   scm_remember_upto_here_1 (z);  
36    SCM_REAL_VALUE (z) = n;    SCM_REAL_VALUE (z) = n;
37    return z;    return z;
38  }  }

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

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