From 20fcc8ed86b4cc4e65e1cc6c2ffbf8e24a2f5fc9 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Sun, 9 May 2004 22:46:17 +0000 Subject: [PATCH] More of: (scm_logbit_p): Correction to test above the end of an inum. Reported by Jan Konecny. --- libguile/numbers.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/numbers.c b/libguile/numbers.c index 6c853d756..450c3770c 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -1485,7 +1485,7 @@ SCM_DEFINE (scm_logbit_p, "logbit?", 2, 0, 0, if (SCM_INUMP (j)) { /* bits above what's in an inum follow the sign bit */ - iindex = min (iindex, LONG_BIT-1); + iindex = min (iindex, SCM_LONG_BIT - 1); return SCM_BOOL ((1L << iindex) & SCM_INUM (j)); } else if (SCM_BIGP (j))