Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

No need to include flonum printing code when flonums are disabled.

Browse source
This commit is contained in:
Alex Shinn 2012-02-03 00:10:13 +09:00
parent 1d1d1cb64d
commit e2bda89eba
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

@ -1473,7 +1473,9 @@ sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
#endif
unsigned long len, c;
long i=0;
#if SEXP_USE_FLONUMS
double f;
#endif
sexp x, *elts;
char *str=NULL, numbuf[NUMBUF_LEN];
@ -1509,6 +1511,7 @@ sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
sexp_write_char(ctx, ')', out);
}
break;
#if SEXP_USE_FLONUMS
#if ! SEXP_USE_IMMEDIATE_FLONUMS
case SEXP_FLONUM:
f = sexp_flonum_value(obj);
@ -1526,6 +1529,7 @@ sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
}
sexp_write_string(ctx, numbuf, out);
break;
#endif
#endif
case SEXP_PROCEDURE:
sexp_write_string(ctx, "#<procedure ", out);