Allow only one exponent in numbers. From r129 of TinyScheme in SourceForge.

This commit is contained in:
Kevin Cozens 2020-09-27 17:20:04 -04:00
parent 4772f57827
commit 0af582f309
1 changed files with 1 additions and 0 deletions

View File

@ -1211,6 +1211,7 @@ static pointer mk_atom(scheme *sc, char *q) {
} }
else if ((c == 'e') || (c == 'E')) { else if ((c == 'e') || (c == 'E')) {
if(!has_fp_exp) { if(!has_fp_exp) {
has_fp_exp = 1;
has_dec_point = 1; /* decimal point illegal has_dec_point = 1; /* decimal point illegal
from now on */ from now on */
p++; p++;