From 793d3931e36a0d6adc12de51d76b7d77b49df6c6 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 28 Dec 2009 00:07:44 +0900 Subject: [PATCH] using faster symbolp test when immediate symbols are disabled --- include/chibi/sexp.h | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/include/chibi/sexp.h b/include/chibi/sexp.h index d161de9d..13854cfd 100644 --- a/include/chibi/sexp.h +++ b/include/chibi/sexp.h @@ -433,7 +433,12 @@ sexp sexp_make_flonum(sexp ctx, double f); #define sexp_seqp(x) (sexp_check_tag(x, SEXP_SEQ)) #define sexp_litp(x) (sexp_check_tag(x, SEXP_LIT)) #define sexp_contextp(x) (sexp_check_tag(x, SEXP_CONTEXT)) + +#if SEXP_USE_HUFF_SYMS #define sexp_symbolp(x) (sexp_isymbolp(x) || sexp_lsymbolp(x)) +#else +#define sexp_symbolp(x) (sexp_lsymbolp(x)) +#endif #define sexp_idp(x) \ (sexp_symbolp(x) || (sexp_synclop(x) && sexp_symbolp(sexp_synclo_expr(x))))