mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fix minor formatting error in 'rationalize'.

Browse source 
* libguile/numbers.c (scm_rationalize): Fix formatting.
This commit is contained in:
Mark H Weaver 2013-07-21 07:20:03 -04:00
parent 620c13e8fc
commit d9e7774fda
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/numbers.c
View file

@ -9528,8 +9528,8 @@ SCM_DEFINE (scm_rationalize, "rationalize", 2, 0, 0,
interval between the remainders NLO/DLO and NHI/DHI.
There are two cases to consider: either NLO/DLO == QLO
is an integer (indicated by RLO == 0), or QLO < QHI. */
if (mpz_sgn (rlo) == 0 || mpz_cmp (qlo, qhi)
!= 0) break;
if (mpz_sgn (rlo) == 0 || mpz_cmp (qlo, qhi) != 0)
break;
/* Efficiently shuffle variables around for the next
iteration. First we shift the recent convergents. */