summaryrefslogtreecommitdiff
path: root/srfi/srfi-60.c
diff options
context:
space:
mode:
Diffstat (limited to 'srfi/srfi-60.c')
-rw-r--r--srfi/srfi-60.c5
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);
}