summaryrefslogtreecommitdiff
path: root/srfi/srfi-4.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-08-03 15:06:12 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-08-03 15:06:12 +0000
commitd9a67fc441a066dbd352324b9b1a4a082d4ba818 (patch)
tree412f59d015fb7b090827ca886160462a416b9c5e /srfi/srfi-4.c
parent8672c728f0eac55444097c333fb4675eb6dde368 (diff)
downloadguile-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.c2
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