diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-06-14 20:14:09 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-06-14 20:14:09 +0000 |
commit | 1385d8aee3436a7166baeb7b5cc7ce27762561fd (patch) | |
tree | d52e3a776a53e7b5675c0ca44c27ea41629e71dd /libguile/eval.c | |
parent | b629af45cba2b34fee0ad078581d231df1e1b86c (diff) | |
download | guile-1385d8aee3436a7166baeb7b5cc7ce27762561fd.tar.gz |
Replace "scm_*_t" with "scm_t_*", except "scm_lisp_t".
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index fec45ac33..dad5aef6a 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -1044,7 +1044,7 @@ scm_m_cont (SCM xorig, SCM env SCM_UNUSED) /* Multi-language support */ SCM_GLOBAL_SYMBOL (scm_lisp_nil, "nil"); -SCM_GLOBAL_SYMBOL (scm_t_lisp, "t"); +SCM_GLOBAL_SYMBOL (scm_lisp_t, "t"); SCM_SYNTAX (s_nil_cond, "nil-cond", scm_makmmacro, scm_m_nil_cond); @@ -2419,7 +2419,7 @@ dispatch: case (SCM_ISYMNUM (SCM_IM_T_IFY)): x = SCM_CDR (x); - RETURN (SCM_NFALSEP (EVALCAR (x, env)) ? scm_t_lisp : scm_lisp_nil) + RETURN (SCM_NFALSEP (EVALCAR (x, env)) ? scm_lisp_t : scm_lisp_nil) case (SCM_ISYMNUM (SCM_IM_0_COND)): proc = SCM_CDR (x); @@ -4125,7 +4125,7 @@ scm_init_eval () #endif scm_c_define ("nil", scm_lisp_nil); - scm_c_define ("t", scm_t_lisp); + scm_c_define ("t", scm_lisp_t); scm_add_feature ("delay"); } |