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.

1 files changed, 5 insertions, 5 deletions

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