From 0bd782fef6af9c934704c434246968ad87c4b7b7 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 31 Jan 2014 20:09:15 +0900 Subject: [PATCH] sexp_debug should check for a valid port first --- include/chibi/sexp.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/include/chibi/sexp.h b/include/chibi/sexp.h index d5693cff..6a9d91dc 100755 --- a/include/chibi/sexp.h +++ b/include/chibi/sexp.h @@ -1498,7 +1498,7 @@ SEXP_API sexp sexp_finalize_c_type (sexp ctx, sexp self, sexp_sint_t n, sexp obj #endif #define sexp_current_error_port(ctx) sexp_parameter_ref(ctx, sexp_env_ref(ctx, sexp_context_env(ctx), sexp_global(ctx,SEXP_G_CUR_ERR_SYMBOL), SEXP_FALSE)) -#define sexp_debug(ctx, msg, obj) (sexp_write_string(ctx, msg, sexp_current_error_port(ctx)), sexp_write(ctx, obj, sexp_current_error_port(ctx)), sexp_write_char(ctx, '\n', sexp_current_error_port(ctx))) +#define sexp_debug(ctx, msg, obj) (sexp_portp(sexp_current_error_port(ctx)) ? (sexp_write_string(ctx, msg, sexp_current_error_port(ctx)), sexp_write(ctx, obj, sexp_current_error_port(ctx)), sexp_write_char(ctx, '\n', sexp_current_error_port(ctx))) : 0) /* simplify primitive API interface */