From 39043bc47c46a1474fb5a5492bdd5efc06899c1b Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Sat, 9 Jun 2018 18:02:50 +0800
Subject: [PATCH] support infinite real with exact zero imaginary literals
 (issue #474)

---
 sexp.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/sexp.c b/sexp.c
index f680bfca..575ced89 100644
--- a/sexp.c
+++ b/sexp.c
@@ -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 {