mirror of https://github.com/GNOME/gimp.git
Allow only one exponent in numbers. From r129 of TinyScheme in SourceForge.
This commit is contained in:
parent
4772f57827
commit
0af582f309
|
@ -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++;
|
||||||
|
|
Loading…
Reference in New Issue