Parent Directory | Revision Log | 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 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |