diff options
| author | Keith Packard <keithp@keithp.com> | 2017-12-09 16:56:20 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-12-09 16:56:20 -0800 |
| commit | 1133130986a78628ea297ce1f6a023baf4382d8f (patch) | |
| tree | 18e8ebd7976b2a964e9a26690f63f66bb5f638da /src/scheme/ao_scheme_float.c | |
| parent | 185b11367cd85948885fceafb5d46303b6f1356d (diff) | |
altos/scheme: Let readline know if there's a list in progress
This lets the interactive prompt change based on what state the lexer
is in
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/scheme/ao_scheme_float.c')
| -rw-r--r-- | src/scheme/ao_scheme_float.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/scheme/ao_scheme_float.c b/src/scheme/ao_scheme_float.c index 541f0264..99249030 100644 --- a/src/scheme/ao_scheme_float.c +++ b/src/scheme/ao_scheme_float.c @@ -39,6 +39,10 @@ const struct ao_scheme_type ao_scheme_float_type = { .name = "float", }; +#ifndef FLOAT_FORMAT +#define FLOAT_FORMAT "%g" +#endif + void ao_scheme_float_write(ao_poly p) { @@ -54,7 +58,7 @@ ao_scheme_float_write(ao_poly p) printf("+"); printf("inf.0"); } else - printf ("%g", f->value); + printf (FLOAT_FORMAT, v); } float |