Parent Directory | Revision Log | Patch
revision 1.200 by kryde, Tue Sep 2 23:00:28 2003 UTC | revision 1.201 by dirk, Wed Sep 17 21:03:25 2003 UTC | |
---|---|---|
# | Line 2522 scm_make_complex (double x, double y) | Line 2522 scm_make_complex (double x, double y) |
2522 | SCM | SCM |
2523 | scm_bigequal (SCM x, SCM y) | scm_bigequal (SCM x, SCM y) |
2524 | { | { |
2525 | int result = mpz_cmp (SCM_I_BIG_MPZ (x), SCM_I_BIG_MPZ (x)); | int result = mpz_cmp (SCM_I_BIG_MPZ (x), SCM_I_BIG_MPZ (y)); |
2526 | scm_remember_upto_here_2 (x, y); | scm_remember_upto_here_2 (x, y); |
2527 | return SCM_BOOL (0 == result); | return SCM_BOOL (0 == result); |
2528 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |