From 3d939c7e8778cb520ec0c5fabd7c59fdd456abc4 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 26 May 2011 08:13:12 +0900
Subject: [PATCH] fixing immediate flonums build

---
 include/chibi/sexp.h | 1 +
 sexp.c               | 7 ++++---
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/include/chibi/sexp.h b/include/chibi/sexp.h
index 3adc1ac1..ff8430d6 100755
--- a/include/chibi/sexp.h
+++ b/include/chibi/sexp.h
@@ -1066,6 +1066,7 @@ SEXP_API sexp sexp_string_concatenate_op (sexp ctx sexp_api_params(self, n), sex
 SEXP_API sexp sexp_intern (sexp ctx, const char *str, sexp_sint_t len);
 SEXP_API sexp sexp_string_to_symbol_op (sexp ctx sexp_api_params(self, n), sexp str);
 SEXP_API sexp sexp_string_to_number_op (sexp ctx sexp_api_params(self, n), sexp str, sexp b);
+SEXP_API sexp sexp_flonump_op (sexp ctx sexp_api_params(self, n), sexp x);
 SEXP_API sexp sexp_make_vector_op (sexp ctx sexp_api_params(self, n), sexp len, sexp dflt);
 SEXP_API sexp sexp_list_to_vector_op (sexp ctx sexp_api_params(self, n), sexp ls);
 SEXP_API sexp sexp_make_cpointer (sexp ctx, sexp_uint_t type_id, void* value, sexp parent, int freep);
diff --git a/sexp.c b/sexp.c
index a98af9e8..2a8f8a6f 100755
--- a/sexp.c
+++ b/sexp.c
@@ -688,6 +688,10 @@ sexp sexp_equalp_op (sexp ctx sexp_api_params(self, n), sexp a, sexp b) {
 
 /********************* strings, symbols, vectors **********************/
 
+sexp sexp_flonump_op (sexp ctx sexp_api_params(self, n), sexp x) {
+  return sexp_make_boolean(sexp_flonump(x));
+}
+
 #if ! SEXP_USE_IMMEDIATE_FLONUMS
 sexp sexp_make_flonum (sexp ctx, double f) {
   sexp x = sexp_alloc_type(ctx, flonum, SEXP_FLONUM);
@@ -696,9 +700,6 @@ sexp sexp_make_flonum (sexp ctx, double f) {
   return x;
 }
 #else
-sexp sexp_flonump_op (sexp ctx sexp_api_params(self, n), sexp x) {
-  return sexp_make_boolean(sexp_flonump(x));
-}
 #if SEXP_64_BIT
 float sexp_flonum_value (sexp x) {
   union sexp_flonum_conv r;