/[guile]/guile/guile-core/libguile/alist.c
ViewVC logotype

Diff of /guile/guile-core/libguile/alist.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by mvo, Sun Nov 25 15:21:07 2001 UTC revision 1.38 by ossau, Tue Jan 22 23:31:38 2002 UTC
# Line 44  Line 44 
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"
# Line 144  SCM_DEFINE (scm_assq, "assq", 2, 0, 0, Line 145  SCM_DEFINE (scm_assq, "assq", 2, 0, 0,
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  }  }
# Line 165  SCM_DEFINE (scm_assv, "assv", 2, 0, 0, Line 166  SCM_DEFINE (scm_assv, "assv", 2, 0, 0,
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  }  }
# Line 186  SCM_DEFINE (scm_assoc, "assoc", 2, 0, 0, Line 187  SCM_DEFINE (scm_assoc, "assoc", 2, 0, 0,
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  }  }

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26