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, 2 insertions, 2 deletions

diff --git a/eval.c b/eval.c
index 0c5ed46b..54df59b8 100644
--- a/eval.c
+++ b/eval.c
@@ -368,7 +368,7 @@ static val lexical_var_p(val menv, val sym)
       val binding = assoc(sym, menv->e.vbindings);
 
       if (binding) /* special_s: see make_var_shadowing_env */
-        return c_true(cdr(binding) == special_s);
+        return tnil(cdr(binding) == special_s);
       return lexical_var_p(menv->e.up_env, sym);
     }
   }
@@ -385,7 +385,7 @@ static val lexical_fun_p(val menv, val sym)
       val binding = assoc(sym, menv->e.fbindings);
 
       if (binding) /* special_s: see make_var_shadowing_env */
-        return c_true(cdr(binding) == special_s);
+        return tnil(cdr(binding) == special_s);
       return lexical_fun_p(menv->e.up_env, sym);
     }
   }