mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

* eval.c, lang.c, lang.h (scm_lisp_nil, scm_lisp_t): Renamed from

Browse source 
scm_nil, scm_t.  (Thanks to Dirk Herrmann.)
This commit is contained in:
Mikael Djurfeldt 2000-03-14 16:41:03 +00:00
parent 5ebf0091ec
commit 43a912cfa6
3 changed files with 25 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/lang.h
View file

@ -48,15 +48,15 @@
extern SCM scm_nil;
extern SCM scm_t;
extern SCM scm_lisp_nil;
extern SCM scm_lisp_t;
#define SCM_NILP(x) ((x) == scm_nil)
#define SCM_NILP(x) ((x) == scm_lisp_nil)
#define SCM_NILNULLP(x) (SCM_NILP (x) || SCM_NULLP (x))
#define SCM_NIL2EOL(x, tmp) ((tmp = (x)) == scm_nil ? SCM_EOL : tmp)
#define SCM_EOL2NIL(x, tmp) (SCM_NULLP (tmp = (x)) ? scm_nil : tmp)
#define SCM_NIL2EOL(x, tmp) ((tmp = (x)) == scm_lisp_nil ? SCM_EOL : tmp)
#define SCM_EOL2NIL(x, tmp) (SCM_NULLP (tmp = (x)) ? scm_lisp_nil : tmp)
#define SCM_EOL_IFY(x, tmp) (tmp = (x), SCM_NILP (tmp) ? SCM_EOL : tmp)
#define SCM_NIL_IFY(x, tmp) (tmp = (x), SCM_NILP (tmp) ? scm_nil : tmp)
#define SCM_NIL_IFY(x, tmp) (tmp = (x), SCM_NILP (tmp) ? scm_lisp_nil : tmp)