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. --- sysif.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'sysif.c') diff --git a/sysif.c b/sysif.c index f8360a69..355eecd6 100644 --- a/sysif.c +++ b/sysif.c @@ -424,7 +424,7 @@ static val wait_wrap(val pid, val flags) static val wifexited(val status) { int s = c_num(if3(consp(status), cdr(status), status)); - return c_true(WIFEXITED(s)); + return tnil(WIFEXITED(s)); } static val wexitstatus(val status) @@ -436,7 +436,7 @@ static val wexitstatus(val status) static val wifsignaled(val status) { int s = c_num(if3(consp(status), cdr(status), status)); - return c_true(WIFSIGNALED(s)); + return tnil(WIFSIGNALED(s)); } static val wtermsig(val status) @@ -449,14 +449,14 @@ static val wtermsig(val status) static val wcoredump(val status) { int s = c_num(if3(consp(status), cdr(status), status)); - return c_true(WCOREDUMP(s)); + return tnil(WCOREDUMP(s)); } #endif static val wifstopped(val status) { int s = c_num(if3(consp(status), cdr(status), status)); - return c_true(WIFSTOPPED(s)); + return tnil(WIFSTOPPED(s)); } static val wstopsig(val status) @@ -469,7 +469,7 @@ static val wstopsig(val status) static val wifcontinued(val status) { int s = c_num(if3(consp(status), cdr(status), status)); - return c_true(WIFCONTINUED(s)); + return tnil(WIFCONTINUED(s)); } #endif -- cgit v1.2.3