diff options
| author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2008-08-16 12:28:19 -0300 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2008-08-16 13:20:46 -0300 |
| commit | b61b5d0ebea924ee4b3930b2cba72e282d4751c7 (patch) | |
| tree | e2465e9956a4b169327fe784aaefa4961c424bec /srfi | |
| parent | 51ef99f7fa9fb766fbb48619fc5863ab9914591d (diff) | |
| download | guile-b61b5d0ebea924ee4b3930b2cba72e282d4751c7.tar.gz | |
Do not include private-gc.h in srfi-60.
Diffstat (limited to 'srfi')
| -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); } |