diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2002-01-22 23:31:39 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2002-01-22 23:31:39 +0000 |
commit | c96d76b88dcb7805311d14e6e408d064211fde20 (patch) | |
tree | 08d604bcf94ceb35dd271c4c46064ed60644f5b4 /libguile/alist.c | |
parent | 229d2c9c076d214457f4f6817f7d3c1db90ed994 (diff) | |
download | guile-c96d76b88dcb7805311d14e6e408d064211fde20.tar.gz |
* First batch of libguile changes for Elisp support.
* Fixed a few typos.
* Minor rationalization of macros relating to source breakpoints.
Diffstat (limited to 'libguile/alist.c')
-rw-r--r-- | libguile/alist.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/alist.c b/libguile/alist.c index 2dd6057b4..a3cdde604 100644 --- a/libguile/alist.c +++ b/libguile/alist.c @@ -44,6 +44,7 @@ #include "libguile/_scm.h" #include "libguile/eq.h" #include "libguile/list.h" +#include "libguile/lang.h" #include "libguile/validate.h" #include "libguile/alist.h" @@ -144,7 +145,7 @@ SCM_DEFINE (scm_assq, "assq", 2, 0, 0, if (SCM_EQ_P (SCM_CAR (tmp), key)) return tmp; } - SCM_ASSERT_TYPE (SCM_NULLP (ls), alist, SCM_ARG2, FUNC_NAME, + SCM_ASSERT_TYPE (SCM_NULL_OR_NIL_P (ls), alist, SCM_ARG2, FUNC_NAME, "association list"); return SCM_BOOL_F; } @@ -165,7 +166,7 @@ SCM_DEFINE (scm_assv, "assv", 2, 0, 0, if (SCM_NFALSEP (scm_eqv_p (SCM_CAR (tmp), key))) return tmp; } - SCM_ASSERT_TYPE (SCM_NULLP (ls), alist, SCM_ARG2, FUNC_NAME, + SCM_ASSERT_TYPE (SCM_NULL_OR_NIL_P (ls), alist, SCM_ARG2, FUNC_NAME, "association list"); return SCM_BOOL_F; } @@ -186,7 +187,7 @@ SCM_DEFINE (scm_assoc, "assoc", 2, 0, 0, if (SCM_NFALSEP (scm_equal_p (SCM_CAR (tmp), key))) return tmp; } - SCM_ASSERT_TYPE (SCM_NULLP (ls), alist, SCM_ARG2, FUNC_NAME, + SCM_ASSERT_TYPE (SCM_NULL_OR_NIL_P (ls), alist, SCM_ARG2, FUNC_NAME, "association list"); return SCM_BOOL_F; } |