X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/26b9f9090073c896762af3125af54958e153f8f2..dc7da0be90d6033d512f9772894179970af678e7:/libguile/pairs.h

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))