Fix fencepost typo in integer_shift_left.

Now (fixnum? (expt 2 24)) returns #t as it should.

diff --git a/src/microcode/artutl.c b/src/microcode/artutl.c
index b6efff0e5925def11d486ba3ca87bce034325a13..091f6b50d0a493d31f4d0b6c0b77c7a4fb417dc2 100644 (file)
--- a/src/microcode/artutl.c
+++ b/src/microcode/artutl.c
@@ -675,7 +675,7 @@ integer_shift_left (SCHEME_OBJECT n, unsigned long m)
       long n1 = (FIXNUM_TO_LONG (n));
       if (n1 < 0)
        {
-         if ((m + (ulong_length_in_bits (~n1))) < FIXNUM_LENGTH)
+         if ((m + (ulong_length_in_bits (~n1))) <= FIXNUM_LENGTH)
            /* The behaviour of shifting a negative integer is
               undefined in C.  */
            return (LONG_TO_FIXNUM (- ((-n1) << m)));
@@ -685,7 +685,7 @@ integer_shift_left (SCHEME_OBJECT n, unsigned long m)
        }
       else if (0 < n1)
        {
-         if ((m + (ulong_length_in_bits (n1))) < FIXNUM_LENGTH)
+         if ((m + (ulong_length_in_bits (n1))) <= FIXNUM_LENGTH)
            return (LONG_TO_FIXNUM (n1 << m));
          else
            return (unsigned_long_to_shifted_bignum (n1, m, 0));