Parent Directory | Revision Log | Patch
revision 1.168 by hanwen, Wed Aug 28 22:45:48 2002 UTC | revision 1.169 by hanwen, Wed Aug 28 22:50:32 2002 UTC | |
---|---|---|
# | Line 3021 scm_make_real (double x) | Line 3021 scm_make_real (double x) |
3021 | OK to interchange the initialization above and the one below. We | OK to interchange the initialization above and the one below. We |
3022 | don't want that, of course. | don't want that, of course. |
3023 | */ | */ |
3024 | scm_remember_1 (z); | scm_remember_upto_here_1 (z); |
3025 | SCM_REAL_VALUE (z) = x; | SCM_REAL_VALUE (z) = x; |
3026 | return z; | return z; |
3027 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |