From 5a7094e2ef10f1c47309f82281534c37f2f2dd9b Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Mon, 21 Sep 2015 15:23:51 +0900
Subject: [PATCH] fix typo not handling uppercase I in some complex numbers

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

diff --git a/sexp.c b/sexp.c
index 7e01ddff..c1cb2197 100644
--- a/sexp.c
+++ b/sexp.c
@@ -2386,7 +2386,7 @@ sexp sexp_read_float_tail (sexp ctx, sexp in, double whole, int negp) {
 #endif
   if (!is_precision_indicator(c)) {
 #if SEXP_USE_COMPLEX
-    if (c=='i' || c=='i' || c=='+' || c=='-') {
+    if (c=='i' || c=='I' || c=='+' || c=='-') {
       sexp_push_char(ctx, c, in);
       res = sexp_read_complex_tail(ctx, in, res);
     } else