#21 mk_atom: set has_fp_exp

[Jesse Rosenstock]

mk_atom: set has_fp_exp

This was never set before, allowing extra exponents to be accepted (and ignored).

Before:
% ./scheme -c '(display 1.0e1e2)' ; echo
10.0

After:
./scheme -c '(display 1.0e1e2)' ; echo
Error: eval: unbound variable: 1.0e1e2
Errors encountered reading (display 1.0e1e2)

[Kevin Cozens]

Good catch.

r129 | kcozens | 2020-09-27 17:18:22 -0400 (Sun, 27 Sep 2020) | 2 lines
mk_atom forgot to set has_fp_exp. From patch #21 by Jesse Rosenstock.