mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Use imaginary_part' instead of imaginary' to fix build on Solaris 2.10.

Browse source
This commit is contained in:
Ludovic Courtès 2008-02-23 11:28:11 +00:00
parent e27d249537
commit a2c25234fb
4 changed files with 17 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/numbers.c
View file

@ -5336,13 +5336,13 @@ scm_c_make_rectangular (double re, double im)
}
SCM_DEFINE (scm_make_rectangular, "make-rectangular", 2, 0, 0,
(SCM real, SCM imaginary),
"Return a complex number constructed of the given @var{real} and\n"
"@var{imaginary} parts.")
(SCM real_part, SCM imaginary_part),
"Return a complex number constructed of the given @var{real-part} "
"and @var{imaginary-part} parts.")
#define FUNC_NAME s_scm_make_rectangular
{
struct dpair xy;
scm_two_doubles (real, imaginary, FUNC_NAME, &xy);
scm_two_doubles (real_part, imaginary_part, FUNC_NAME, &xy);
return scm_c_make_rectangular (xy.x, xy.y);
}
#undef FUNC_NAME