Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #477 from tramboi/expt_fix

Browse source 
Expt fix
This commit is contained in:
Alex Shinn 2018-06-20 18:46:11 +08:00 • committed by GitHub
commit f9bd4f9c0e
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
eval.c
View file

@ -1706,6 +1706,11 @@ sexp sexp_expt_op (sexp ctx, sexp self, sexp_sint_t n, sexp x, sexp e) {
res = sexp_make_flonum(ctx, pow(10.0, 1e100)); /* +inf.0 */ res = sexp_make_flonum(ctx, pow(10.0, 1e100)); /* +inf.0 */
} else if (sexp_bignump(x)) { } else if (sexp_bignump(x)) {
res = sexp_bignum_expt(ctx, x, e); res = sexp_bignum_expt(ctx, x, e);
} else if (sexp_fixnump(x)) {
sexp_gc_preserve1(ctx, tmp);
tmp = sexp_fixnum_to_bignum(ctx, x);
res = sexp_bignum_expt(ctx, tmp, e);
sexp_gc_release1(ctx);
} else { } else {
#endif #endif
if (sexp_fixnump(x)) if (sexp_fixnump(x))

4
lib/chibi/numeric-test.sld
View file

@ -16,8 +16,10 @@
(define (run-tests) (define (run-tests)
(test-begin "numbers") (test-begin "numbers")
(test 0 (expt 0 1))
(test 1 (expt 3 0))
(test 3 (expt 3 1)) (test 3 (expt 3 1))
;(test 1/3 (expt 3 -1)) (test 1/3 (expt 3 -1))
(test 1/300000000000000000000 (expt 300000000000000000000 -1)) (test 1/300000000000000000000 (expt 300000000000000000000 -1))
(test '(536870912 536870913 536870911 -536870912 -536870911 -536870913) (test '(536870912 536870913 536870911 -536870912 -536870911 -536870913)