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

fix inexact polar notation (issue #333)

Browse source
This commit is contained in:
Alex Shinn 2020-08-20 09:54:09 +09:00
parent d75ae9304f
commit 287753f2e3
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sexp.c
View file

@ -2737,6 +2737,10 @@ sexp sexp_read_float_tail (sexp ctx, sexp in, double whole, int negp) {
if (c=='i' || c=='I' || c=='+' || c=='-') { if (c=='i' || c=='I' || c=='+' || c=='-') {
sexp_push_char(ctx, c, in); sexp_push_char(ctx, c, in);
res = sexp_read_complex_tail(ctx, in, res); 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 } else
#endif #endif
if ((c!=EOF) && ! sexp_is_separator(c)) if ((c!=EOF) && ! sexp_is_separator(c))