From ed4cef9294f0d32291871f77e8dda7c85dcdd23c Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 13 Feb 2015 19:02:28 +0900 Subject: [PATCH] Adding sexp_length macro. --- include/chibi/sexp.h | 1 + 1 file changed, 1 insertion(+) diff --git a/include/chibi/sexp.h b/include/chibi/sexp.h index 949aa17d..307e0f55 100755 --- a/include/chibi/sexp.h +++ b/include/chibi/sexp.h @@ -1538,6 +1538,7 @@ SEXP_API sexp sexp_finalize_c_type (sexp ctx, sexp self, sexp_sint_t n, sexp obj #define sexp_equalp(ctx, a, b) sexp_equalp_op(ctx, NULL, 2, a, b) #define sexp_listp(ctx, x) sexp_listp_op(ctx, NULL, 1, x) #define sexp_length(ctx, x) sexp_length_op(ctx, NULL, 1, x) +#define sexp_length_unboxed(x) sexp_unbox_fixnum(sexp_length(NULL, x)) #define sexp_reverse(ctx, x) sexp_reverse_op(ctx, NULL, 1, x) #define sexp_nreverse(ctx, x) sexp_nreverse_op(ctx, NULL, 1, x) #define sexp_copy_list(ctx, x) sexp_copy_list_op(ctx, NULL, 1, x)