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

fix plan9 breakage

Browse source
This commit is contained in:
Bakul Shah 2012-11-10 15:16:00 -08:00
parent e2c8f144b5
commit 9b0f9c73f2
3 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
include/chibi/features.h
View file

@ -660,6 +660,8 @@
#define strcasestr cistrstr #define strcasestr cistrstr
#define round(x) floor((x)+0.5) #define round(x) floor((x)+0.5)
#define trunc(x) floor((x)+0.5*(((x)<0)?1:0)) #define trunc(x) floor((x)+0.5*(((x)<0)?1:0))
#define isinf(x) (isInf(x,1) || isInf(x,-1))
#define isnan(x) isNaN(x)
#elif defined(_WIN32) #elif defined(_WIN32)
#define snprintf(buf, len, fmt, val) sprintf(buf, fmt, val) #define snprintf(buf, len, fmt, val) sprintf(buf, fmt, val)
#define strcasecmp lstrcmpi #define strcasecmp lstrcmpi
@ -674,6 +676,10 @@
#define sexp_pos_infinity (DBL_MAX*DBL_MAX) #define sexp_pos_infinity (DBL_MAX*DBL_MAX)
#define sexp_neg_infinity -sexp_pos_infinity #define sexp_neg_infinity -sexp_pos_infinity
#define sexp_nan log(-2) #define sexp_nan log(-2)
#elif PLAN9
#define sexp_pos_infinity Inf(1)
#define sexp_neg_infinity Inf(-1)
#define sexp_nan NaN()
#else #else
#define sexp_pos_infinity (1.0/0.0) #define sexp_pos_infinity (1.0/0.0)
#define sexp_neg_infinity -sexp_pos_infinity #define sexp_neg_infinity -sexp_pos_infinity

2
include/chibi/sexp.h
View file

@ -1062,7 +1062,7 @@ SEXP_API sexp sexp_make_unsigned_integer(sexp ctx, sexp_luint_t x);
#define sexp_context_exception(x) (sexp_vector_ref(sexp_context_specific(x), SEXP_SIX)) #define sexp_context_exception(x) (sexp_vector_ref(sexp_context_specific(x), SEXP_SIX))
#if SEXP_USE_ALIGNED_BYTECODE #if SEXP_USE_ALIGNED_BYTECODE
#define sexp_context_align_pos(ctx) sexp_context_pos(ctx) = sexp_word_align(sexp_context_pos(ctx)) #define sexp_context_align_pos(ctx) sexp_context_pos(ctx) = (sexp)sexp_word_align((sexp_uint_t)sexp_context_pos(ctx))
#else #else
#define sexp_context_align_pos(ctx) #define sexp_context_align_pos(ctx)
#endif #endif

1
main.c
View file

@ -511,4 +511,5 @@ int main (int argc, char **argv) {
sexp_scheme_init(); sexp_scheme_init();
run_main(argc, argv); run_main(argc, argv);
exit_success(); exit_success();
return 0;
} }