diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-14 16:41:03 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-14 16:41:03 +0000 |
commit | 43a912cfa649da0705e23dfcce50de72b84686cb (patch) | |
tree | 8517ce5a655c2d2c54f9e06ec1fb318c0ac65d68 /libguile/eval.c | |
parent | 5ebf0091ec6e5a9c9d3baaa6e7a6d5035b52f45b (diff) | |
download | guile-43a912cfa649da0705e23dfcce50de72b84686cb.tar.gz |
* eval.c, lang.c, lang.h (scm_lisp_nil, scm_lisp_t): Renamed from
scm_nil, scm_t. (Thanks to Dirk Herrmann.)
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index f2562850b..9652637b1 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -1065,8 +1065,8 @@ scm_m_cont (SCM xorig, SCM env) /* Multi-language support */ -SCM scm_nil; -SCM scm_t; +SCM scm_lisp_nil; +SCM scm_lisp_t; SCM_SYNTAX (s_nil_cond, "nil-cond", scm_makmmacro, scm_m_nil_cond); @@ -2356,7 +2356,7 @@ dispatch: while (SCM_NIMP (x = SCM_CDR (proc))) { if (!(SCM_FALSEP (t.arg1 = EVALCAR (proc, env)) - || t.arg1 == scm_nil)) + || t.arg1 == scm_lisp_nil)) { if (SCM_CAR (x) == SCM_UNSPECIFIED) RETURN (t.arg1); @@ -2372,12 +2372,12 @@ dispatch: case (SCM_ISYMNUM (SCM_IM_NIL_IFY)): x = SCM_CDR (x); RETURN ((SCM_FALSEP (proc = EVALCAR (x, env)) || SCM_NULLP (proc)) - ? scm_nil + ? scm_lisp_nil : proc) case (SCM_ISYMNUM (SCM_IM_T_IFY)): x = SCM_CDR (x); - RETURN (SCM_NFALSEP (EVALCAR (x, env)) ? scm_t : scm_nil) + RETURN (SCM_NFALSEP (EVALCAR (x, env)) ? scm_lisp_t : scm_lisp_nil) case (SCM_ISYMNUM (SCM_IM_0_COND)): proc = SCM_CDR (x); @@ -3863,12 +3863,12 @@ scm_init_eval () scm_sym_unquote = SCM_CAR (scm_sysintern ("unquote", SCM_UNDEFINED)); scm_sym_uq_splicing = SCM_CAR (scm_sysintern ("unquote-splicing", SCM_UNDEFINED)); - scm_nil = scm_sysintern ("nil", SCM_UNDEFINED); - SCM_SETCDR (scm_nil, SCM_CAR (scm_nil)); - scm_nil = SCM_CAR (scm_nil); - scm_t = scm_sysintern ("t", SCM_UNDEFINED); - SCM_SETCDR (scm_t, SCM_CAR (scm_t)); - scm_t = SCM_CAR (scm_t); + scm_lisp_nil = scm_sysintern ("nil", SCM_UNDEFINED); + SCM_SETCDR (scm_lisp_nil, SCM_CAR (scm_lisp_nil)); + scm_lisp_nil = SCM_CAR (scm_lisp_nil); + scm_lisp_t = scm_sysintern ("t", SCM_UNDEFINED); + SCM_SETCDR (scm_lisp_t, SCM_CAR (scm_lisp_t)); + scm_lisp_t = SCM_CAR (scm_lisp_t); /* acros */ /* end of acros */ |