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