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

support infinite real with exact zero imaginary literals (issue #474)

Browse source
This commit is contained in:
Alex Shinn 2018-06-09 18:02:50 +08:00
parent 22f87f67ab
commit 39043bc47c
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sexp.c
View file

@ -3253,6 +3253,8 @@ sexp sexp_read_raw (sexp ctx, sexp in, sexp *shares) {
res = sexp_string_to_number(ctx, res, SEXP_TEN);
if (sexp_complexp(res) && (sexp_complex_real(res) == SEXP_ZERO))
sexp_complex_real(res) = tmp;
else if (res == SEXP_ZERO)
res = tmp;
else if (!sexp_exceptionp(res))
res = sexp_read_error(ctx, "invalid complex infinity", res, in);
} else {