/[guile]/guile/guile-core/libguile/numbers.c
ViewVC logotype

Diff of /guile/guile-core/libguile/numbers.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.197  
changed lines
  Added in v.1.198

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26