diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-01-08 01:09:11 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-01-08 01:09:11 +0000 |
commit | 2de257bd0594f64e85feb2e3eddac49357cd04a8 (patch) | |
tree | 8eb451723c29e46012c01a3f9770744add0bef8a | |
parent | 5ac36451787ffe61cf2adb96d88498ecdd4b353e (diff) | |
download | guile-2de257bd0594f64e85feb2e3eddac49357cd04a8.tar.gz |
Cosmetic fixes
-rw-r--r-- | libguile/alist.c | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/libguile/alist.c b/libguile/alist.c index 541a3491f..9dbf9a5a2 100644 --- a/libguile/alist.c +++ b/libguile/alist.c @@ -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 @@ -86,8 +86,8 @@ 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)) + SCM tmp = SCM_CAR (alist); + if (SCM_CONSP (tmp) && SCM_CAR (tmp) == key) return tmp; } return SCM_BOOL_F; @@ -104,7 +104,7 @@ Recommended only for use in Guile internals.") { for (; SCM_CONSP (alist); alist = SCM_CDR (alist)) { - SCM tmp = SCM_CAR(alist); + SCM tmp = SCM_CAR (alist); if (SCM_CONSP (tmp) && SCM_NFALSEP (scm_eqv_p (SCM_CAR (tmp), key))) return tmp; @@ -122,7 +122,7 @@ Recommended only for use in Guile internals.") { for (; SCM_CONSP (alist); alist = SCM_CDR (alist)) { - SCM tmp = SCM_CAR(alist); + SCM tmp = SCM_CAR (alist); if (SCM_CONSP (tmp) && SCM_NFALSEP (scm_equal_p (SCM_CAR (tmp), key))) 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).") #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_VALIDATE_CONS(SCM_ARG2, tmp); - if (SCM_CAR(tmp) == key) - return tmp; + SCM tmp = SCM_CAR (alist); + SCM_VALIDATE_CONS (SCM_ARG2, tmp); + if (SCM_CAR (tmp) == key) + return tmp; } - SCM_VALIDATE_NULL(2, alist); + SCM_VALIDATE_NULL (2, alist); return SCM_BOOL_F; } #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.") #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_VALIDATE_CONS(SCM_ARG2, tmp); - if SCM_NFALSEP(scm_eqv_p(SCM_CAR(tmp), key)) - return tmp; + SCM tmp = SCM_CAR (alist); + SCM_VALIDATE_CONS (SCM_ARG2, tmp); + if (SCM_NFALSEP (scm_eqv_p (SCM_CAR (tmp), key))) + return tmp; } - SCM_VALIDATE_NULL(2, alist); + SCM_VALIDATE_NULL (2, alist); return SCM_BOOL_F; } #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.") #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_VALIDATE_CONS(SCM_ARG2, tmp); - if SCM_NFALSEP(scm_equal_p(SCM_CAR(tmp), key)) - return tmp; + SCM tmp = SCM_CAR (alist); + SCM_VALIDATE_CONS (SCM_ARG2, tmp); + if (SCM_NFALSEP (scm_equal_p (SCM_CAR (tmp), key))) + return tmp; } - SCM_VALIDATE_NULL(2, alist); + SCM_VALIDATE_NULL (2, alist); return SCM_BOOL_F; } #undef FUNC_NAME |