diff options
Diffstat (limited to 'srfi/srfi-60.c')
-rw-r--r-- | srfi/srfi-60.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/srfi/srfi-60.c b/srfi/srfi-60.c index f631c6447..b90306a8e 100644 --- a/srfi/srfi-60.c +++ b/srfi/srfi-60.c @@ -18,7 +18,6 @@ */ #include <libguile.h> -#include "libguile/private-gc.h" /* for SCM_MIN */ #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); 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; ret = scm_cons (scm_from_bool (bit), ret); } |