mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

* numbers.c (scm_logtest, scm_division): Reordered dispatch sequence.

Browse source 
* removed calls to deprecated scm_makdbl.
This commit is contained in:
Dirk Herrmann 2000-05-02 16:41:20 +00:00
parent 0607c1096c
commit f8de44c154
9 changed files with 297 additions and 262 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/unif.c
View file

@ -2119,14 +2119,14 @@ SCM_DEFINE (scm_array_to_list, "array->list", 1, 0, 0,
{
double *data = (double *) SCM_VELTS (v);
for (k = SCM_LENGTH (v) - 1; k >= 0; k--)
res = scm_cons (scm_makdbl (data[k], 0.0), res);
res = scm_cons (scm_make_real (data[k]), res);
return res;
}
case scm_tc7_cvect:
{
double (*data)[2] = (double (*)[2]) SCM_VELTS (v);
for (k = SCM_LENGTH (v) - 1; k >= 0; k--)
res = scm_cons (scm_makdbl (data[k][0], data[k][1]), res);
res = scm_cons (scm_make_complex (data[k][0], data[k][1]), res);
return res;
}
}