Parent Directory | Revision Log | Patch
revision 1.197 by mvo, Sun Jul 27 13:34:32 2003 UTC | revision 1.198 by kryde, Fri Aug 22 01:17:48 2003 UTC | |
---|---|---|
# | Line 3370 scm_difference (SCM x, SCM y) | Line 3370 scm_difference (SCM x, SCM y) |
3370 | { | { |
3371 | SCM result = scm_i_mkbig (); | SCM result = scm_i_mkbig (); |
3372 | ||
3373 | mpz_sub_ui (SCM_I_BIG_MPZ (result), SCM_I_BIG_MPZ (x), yy); | if (yy >= 0) |
3374 | mpz_sub_ui (SCM_I_BIG_MPZ (result), SCM_I_BIG_MPZ (x), yy); | |
3375 | else | |
3376 | mpz_add_ui (SCM_I_BIG_MPZ (result), SCM_I_BIG_MPZ (x), -yy); | |
3377 | scm_remember_upto_here_1 (x); | scm_remember_upto_here_1 (x); |
3378 | ||
3379 | if ((sgn_x < 0 && (yy > 0)) || ((sgn_x > 0) && yy < 0)) | if ((sgn_x < 0 && (yy > 0)) || ((sgn_x > 0) && yy < 0)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |