From e2bda89ebac253f7375dbb3c23a5fa9319f9298a Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 3 Feb 2012 00:10:13 +0900
Subject: [PATCH] No need to include flonum printing code when flonums are
 disabled.

---
 sexp.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/sexp.c b/sexp.c
index fd3afaf2..3bc9f24c 100644
--- a/sexp.c
+++ b/sexp.c
@@ -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);