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

Do not include private-gc.h in srfi-60.

Browse source
This commit is contained in:
Han-Wen Nienhuys 2008-08-16 12:28:19 -03:00 • committed by Han-Wen Nienhuys
parent 51ef99f7fa
commit b61b5d0ebe
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
srfi/srfi-60.c
View file

@ -18,7 +18,6 @@
*/ */
#include <libguile.h> #include <libguile.h>
#include "libguile/private-gc.h" /* for SCM_MIN */
#include "srfi-60.h" #include "srfi-60.h"
@ -332,7 +331,9 @@ SCM_DEFINE (scm_srfi60_integer_to_list, "integer->list", 1, 1, 0,
long nn = SCM_I_INUM (n); long nn = SCM_I_INUM (n);
for (i = 0; i < ll; i++) for (i = 0; i < ll; i++)
{ {
unsigned long shift = SCM_MIN (i, (unsigned long) SCM_LONG_BIT-1); unsigned long shift =
(i < ((unsigned long) SCM_LONG_BIT-1))
? i : ((unsigned long) SCM_LONG_BIT-1);
int bit = (nn >> shift) & 1; int bit = (nn >> shift) & 1;
ret = scm_cons (scm_from_bool (bit), ret); ret = scm_cons (scm_from_bool (bit), ret);
} }