diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-08-03 15:06:12 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-08-03 15:06:12 +0000 |
commit | d9a67fc441a066dbd352324b9b1a4a082d4ba818 (patch) | |
tree | 412f59d015fb7b090827ca886160462a416b9c5e /srfi/srfi-4.c | |
parent | 8672c728f0eac55444097c333fb4675eb6dde368 (diff) | |
download | guile-d9a67fc441a066dbd352324b9b1a4a082d4ba818.tar.gz |
(scm_make_real, scm_num2dbl, scm_float2num, scm_double2num):
Discouraged by moving to discouraged.h and discouraged.c.
Replaced all uses with scm_from_double.
(scm_num2float, scm_num2double): Discouraged by moving prototype
to discouraged.h and rewriting in terms of scm_to_double.
Replaced all uses with scm_to_double.
Diffstat (limited to 'srfi/srfi-4.c')
-rw-r--r-- | srfi/srfi-4.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/srfi/srfi-4.c b/srfi/srfi-4.c index 579c63dfc..2c4e119a3 100644 --- a/srfi/srfi-4.c +++ b/srfi/srfi-4.c @@ -1710,7 +1710,7 @@ SCM_DEFINE (scm_f64vector_ref, "f64vector-ref", 2, 0, 0, scm_wrong_type_arg (FUNC_NAME, 1, uvec); idx = scm_to_unsigned_integer (index, 0, SCM_UVEC_LENGTH (uvec)-1); - return scm_make_real (((float_f64 *) SCM_UVEC_BASE (uvec))[idx]); + return scm_from_double (((float_f64 *) SCM_UVEC_BASE (uvec))[idx]); } #undef FUNC_NAME |