Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-06 12:46:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing immediate flonums build

Browse source
This commit is contained in:
Alex Shinn 2011-05-26 08:13:12 +09:00
parent 24cc418275
commit 3d939c7e87
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
include/chibi/sexp.h
View file

@ -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);

7
sexp.c
View file

@ -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;