mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Cosmetic fixes

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-01-08 01:09:11 +00:00
parent 5ac3645178
commit 2de257bd05
1 changed files with 23 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/alist.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995, 1996, 1998 Free Software Foundation, Inc. /* Copyright (C) 1995-2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -87,7 +87,7 @@ Recommended only for use in Guile internals.")
for (; SCM_CONSP (alist); alist = SCM_CDR (alist)) for (; SCM_CONSP (alist); alist = SCM_CDR (alist))
{ {
SCM tmp = SCM_CAR (alist); SCM tmp = SCM_CAR (alist);
if (SCM_CONSP (tmp) && (SCM_CAR (tmp)==key)) if (SCM_CONSP (tmp) && SCM_CAR (tmp) == key)
return tmp; return tmp;
} }
return SCM_BOOL_F; return SCM_BOOL_F;
@ -169,7 +169,7 @@ SCM_DEFINE (scm_assv, "assv", 2, 0, 0,
{ {
SCM tmp = SCM_CAR (alist); SCM tmp = SCM_CAR (alist);
SCM_VALIDATE_CONS (SCM_ARG2, tmp); SCM_VALIDATE_CONS (SCM_ARG2, tmp);
if SCM_NFALSEP(scm_eqv_p(SCM_CAR(tmp), key)) if (SCM_NFALSEP (scm_eqv_p (SCM_CAR (tmp), key)))
return tmp; return tmp;
} }
SCM_VALIDATE_NULL (2, alist); SCM_VALIDATE_NULL (2, alist);
@ -187,7 +187,7 @@ SCM_DEFINE (scm_assoc, "assoc", 2, 0, 0,
{ {
SCM tmp = SCM_CAR (alist); SCM tmp = SCM_CAR (alist);
SCM_VALIDATE_CONS (SCM_ARG2, tmp); SCM_VALIDATE_CONS (SCM_ARG2, tmp);
if SCM_NFALSEP(scm_equal_p(SCM_CAR(tmp), key)) if (SCM_NFALSEP (scm_equal_p (SCM_CAR (tmp), key)))
return tmp; return tmp;
} }
SCM_VALIDATE_NULL (2, alist); SCM_VALIDATE_NULL (2, alist);