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

40
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
@ -86,8 +86,8 @@ 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;
@ -104,7 +104,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) if (SCM_CONSP (tmp)
&& SCM_NFALSEP (scm_eqv_p (SCM_CAR (tmp), key))) && SCM_NFALSEP (scm_eqv_p (SCM_CAR (tmp), key)))
return tmp; return tmp;
@ -122,7 +122,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) if (SCM_CONSP (tmp)
&& SCM_NFALSEP (scm_equal_p (SCM_CAR (tmp), key))) && SCM_NFALSEP (scm_equal_p (SCM_CAR (tmp), key)))
return tmp; return tmp;
@ -147,14 +147,14 @@ predicate is in use), then @code{#f} is returned. These functions
return the entire alist entry found (i.e. both the key and the value).") return the entire alist entry found (i.e. both the key and the value).")
#define FUNC_NAME s_scm_assq #define FUNC_NAME s_scm_assq
{ {
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);
SCM_VALIDATE_CONS(SCM_ARG2, tmp); SCM_VALIDATE_CONS (SCM_ARG2, tmp);
if (SCM_CAR(tmp) == key) if (SCM_CAR (tmp) == key)
return tmp; return tmp;
} }
SCM_VALIDATE_NULL(2, alist); SCM_VALIDATE_NULL (2, alist);
return SCM_BOOL_F; return SCM_BOOL_F;
} }
#undef FUNC_NAME #undef FUNC_NAME
@ -165,14 +165,14 @@ SCM_DEFINE (scm_assv, "assv", 2, 0, 0,
"Behaves like @code{assq} but uses @code{eqv?} for key comparison.") "Behaves like @code{assq} but uses @code{eqv?} for key comparison.")
#define FUNC_NAME s_scm_assv #define FUNC_NAME s_scm_assv
{ {
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);
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);
return SCM_BOOL_F; return SCM_BOOL_F;
} }
#undef FUNC_NAME #undef FUNC_NAME
@ -183,14 +183,14 @@ SCM_DEFINE (scm_assoc, "assoc", 2, 0, 0,
"Behaves like @code{assq} but uses @code{equal?} for key comparison.") "Behaves like @code{assq} but uses @code{equal?} for key comparison.")
#define FUNC_NAME s_scm_assoc #define FUNC_NAME s_scm_assoc
{ {
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);
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);
return SCM_BOOL_F; return SCM_BOOL_F;
} }
#undef FUNC_NAME #undef FUNC_NAME