diff options
Diffstat (limited to 'libguile/pairs.h')
-rw-r--r-- | libguile/pairs.h | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/libguile/pairs.h b/libguile/pairs.h index 0e9816227..6edfc9c3e 100644 --- a/libguile/pairs.h +++ b/libguile/pairs.h @@ -56,11 +56,19 @@ (SCM_MATCHES_BITS_IN_COMMON ((x), SCM_ELISP_NIL, SCM_EOL)) -/* Older spellings for these nil predicates. */ + + +/* Older spellings for these null, nil, and pair predicates. */ #define SCM_NILP(x) (scm_is_eq ((x), SCM_ELISP_NIL)) #define SCM_NULL_OR_NIL_P(x) (scm_is_null_or_nil (x)) +#define SCM_NULLP(x) (scm_is_null (x)) +#define SCM_NNULLP(x) (!scm_is_null (x)) +#define SCM_CONSP(x) (scm_is_pair (x)) +#define SCM_NCONSP(x) (!SCM_CONSP (x)) + + /* #nil is null. */ #define scm_is_null(x) (scm_is_null_or_nil(x)) |