From 287753f2e379f053583cfa0d7ffa4e61da998fe0 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Thu, 20 Aug 2020 09:54:09 +0900
Subject: [PATCH] fix inexact polar notation (issue #333)

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

diff --git a/sexp.c b/sexp.c
index 2dc3c7dd..6682ee39 100644
--- a/sexp.c
+++ b/sexp.c
@@ -2737,6 +2737,10 @@ sexp sexp_read_float_tail (sexp ctx, sexp in, double whole, int negp) {
     if (c=='i' || c=='I' || c=='+' || c=='-') {
       sexp_push_char(ctx, c, in);
       res = sexp_read_complex_tail(ctx, in, res);
+#if SEXP_USE_MATH
+    } else if (c=='@') {
+      return sexp_read_polar_tail(ctx, in, res);
+#endif
     } else
 #endif
     if ((c!=EOF) && ! sexp_is_separator(c))