Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +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 #endif
unsigned long len, c; unsigned long len, c;
long i=0; long i=0;
#if SEXP_USE_FLONUMS
double f; double f;
#endif
sexp x, *elts; sexp x, *elts;
char *str=NULL, numbuf[NUMBUF_LEN]; 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); sexp_write_char(ctx, ')', out);
} }
break; break;
#if SEXP_USE_FLONUMS
#if ! SEXP_USE_IMMEDIATE_FLONUMS #if ! SEXP_USE_IMMEDIATE_FLONUMS
case SEXP_FLONUM: case SEXP_FLONUM:
f = sexp_flonum_value(obj); 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); sexp_write_string(ctx, numbuf, out);
break; break;
#endif
#endif #endif
case SEXP_PROCEDURE: case SEXP_PROCEDURE:
sexp_write_string(ctx, "#<procedure ", out); sexp_write_string(ctx, "#<procedure ", out);