From b9cfb7a7ad2cb64cba3d1863feee63338b49e5eb Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 27 Aug 2015 07:28:34 -0700 Subject: Renaming c_true to tnil. Macros called c_* should produce C counterparts of Lisp val objects, like c_num and c_str. * lib.h (c_true): Renamed to tnil. * eval.c (lexical_var_p, lexical_fun_p): c_true to tnil. * lib.c (less, chr_isalnum, chr_isalnum, chr_isalpha, chr_isascii, chr_iscntrl, chr_isdigit, chr_isgraph, chr_islower, chr_isprint, chr_ispunct, chr_isspace, chr_isblank, chr_isunisp, chr_isupper, chr_isxdigit, chr_toupper, keywordp): Likewise. * stream.c (catenated_stream_p): Likewise. * sysif.c (wifexited, wifsignaled, wcoredump, wifstopped, wifcontinued): Likewise. --- stream.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'stream.c') diff --git a/stream.c b/stream.c index cde7e5b8..fe250f70 100644 --- a/stream.c +++ b/stream.c @@ -1870,7 +1870,7 @@ val make_catenated_stream_v(struct args *streams) val catenated_stream_p(val obj) { - return if2(streamp(obj), c_true(obj->co.ops == &cat_stream_ops.cobj_ops)); + return if2(streamp(obj), tnil(obj->co.ops == &cat_stream_ops.cobj_ops)); } val catenated_stream_push(val new_stream, val cat_stream) -- cgit v1.2.3