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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/srfi/srfi-60.c b/srfi/srfi-60.c
index 257b1387f..f631c6447 100644
--- a/srfi/srfi-60.c
+++ b/srfi/srfi-60.c
@@ -86,7 +86,7 @@ SCM_DEFINE (scm_srfi60_copy_bit, "copy-bit", 3, 0, 0,
if (ii < SCM_LONG_BIT-1)
{
nn &= ~(1L << ii); /* zap bit at index */
- nn |= (bb << ii); /* insert desired bit */
+ nn |= ((long) bb << ii); /* insert desired bit */
return scm_from_long (nn);
}
else