44 |
#include "libguile/_scm.h" |
#include "libguile/_scm.h" |
45 |
#include "libguile/eq.h" |
#include "libguile/eq.h" |
46 |
#include "libguile/list.h" |
#include "libguile/list.h" |
47 |
|
#include "libguile/lang.h" |
48 |
|
|
49 |
#include "libguile/validate.h" |
#include "libguile/validate.h" |
50 |
#include "libguile/alist.h" |
#include "libguile/alist.h" |
145 |
if (SCM_EQ_P (SCM_CAR (tmp), key)) |
if (SCM_EQ_P (SCM_CAR (tmp), key)) |
146 |
return tmp; |
return tmp; |
147 |
} |
} |
148 |
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, |
149 |
"association list"); |
"association list"); |
150 |
return SCM_BOOL_F; |
return SCM_BOOL_F; |
151 |
} |
} |
166 |
if (SCM_NFALSEP (scm_eqv_p (SCM_CAR (tmp), key))) |
if (SCM_NFALSEP (scm_eqv_p (SCM_CAR (tmp), key))) |
167 |
return tmp; |
return tmp; |
168 |
} |
} |
169 |
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, |
170 |
"association list"); |
"association list"); |
171 |
return SCM_BOOL_F; |
return SCM_BOOL_F; |
172 |
} |
} |
187 |
if (SCM_NFALSEP (scm_equal_p (SCM_CAR (tmp), key))) |
if (SCM_NFALSEP (scm_equal_p (SCM_CAR (tmp), key))) |
188 |
return tmp; |
return tmp; |
189 |
} |
} |
190 |
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, |
191 |
"association list"); |
"association list"); |
192 |
return SCM_BOOL_F; |
return SCM_BOOL_F; |
193 |
} |
} |