/[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.186 by kryde, Sat May 10 00:05:51 2003 UTC revision 1.187 by kryde, Sat May 10 00:20:05 2003 UTC
# Line 708  scm_gcd (SCM x, SCM y) Line 708  scm_gcd (SCM x, SCM y)
708          {          {
709            unsigned long result;            unsigned long result;
710            long yy = SCM_INUM (y);            long yy = SCM_INUM (y);
711              if (yy == 0)
712                return scm_abs (x);
713            if (yy < 0) yy = -yy;            if (yy < 0) yy = -yy;
714            result = mpz_gcd_ui (NULL, SCM_I_BIG_MPZ (x), yy);            result = mpz_gcd_ui (NULL, SCM_I_BIG_MPZ (x), yy);
715            scm_remember_upto_here_1 (x);            scm_remember_upto_here_1 (x);

Legend:
Removed from v.1.186  
changed lines
  Added in v.1.187

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