Fix edge case in 'ash'.
authorMark H Weaver <mhw@netris.org>
Thu, 3 Oct 2013 18:25:51 +0000 (14:25 -0400)
committerMark H Weaver <mhw@netris.org>
Thu, 3 Oct 2013 18:25:51 +0000 (14:25 -0400)
commit8df68898b9f6ba15171244f1f3549688f13d605f
treedc8d7ae7e5593c504aaa83339468048c0432b243
parent84af582d1e9b5f04270d263a89aaa844750177d3
Fix edge case in 'ash'.

* libguile/numbers.c (scm_ash): Fix (ash -1 SCM_I_FIXNUM_BIT-1) to
  return a fixnum instead of a bignum.

* test-suite/tests/numbers.test (ash): Add tests.
libguile/numbers.c
test-suite/tests/numbers.test