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
* 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))
{
SCM tmp = SCM_CAR (alist);
if (SCM_CONSP (tmp) && (SCM_CAR (tmp)==key))
if (SCM_CONSP (tmp) && SCM_CAR (tmp) == key)
return tmp;
}
return SCM_BOOL_F;
@ -169,7 +169,7 @@ SCM_DEFINE (scm_assv, "assv", 2, 0, 0,
{
SCM tmp = SCM_CAR (alist);
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;
}
SCM_VALIDATE_NULL (2, alist);
@ -187,7 +187,7 @@ SCM_DEFINE (scm_assoc, "assoc", 2, 0, 0,
{
SCM tmp = SCM_CAR (alist);
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;
}
SCM_VALIDATE_NULL (2, alist);