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