summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-01-23 21:02:13 +0000
committerKevin Ryde <user42@zip.com.au>2005-01-23 21:02:13 +0000
commit2796304a401c9949d4d1201f13ff8d990abbe1d8 (patch)
tree8c179f3f641f9b3775987a9d5f5e77cfa1d5fc02 /srfi/srfi-1.c
parent8e15d7f577a2af391324ede530d2efacab37403f (diff)
downloadguile-2796304a401c9949d4d1201f13ff8d990abbe1d8.tar.gz
(scm_srfi1_member): Correction to pred call arg order, srfi
spec is (PRED X elem).
Diffstat (limited to 'srfi/srfi-1.c')
-rw-r--r--srfi/srfi-1.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/srfi/srfi-1.c b/srfi/srfi-1.c
index d6432bbd4..280089f8c 100644
--- a/srfi/srfi-1.c
+++ b/srfi/srfi-1.c
@@ -737,7 +737,7 @@ SCM_DEFINE (scm_srfi1_member, "member", 2, 1, 0,
}
for (; !SCM_NULL_OR_NIL_P (lst); lst = SCM_CDR (lst))
{
- if (scm_is_true (equal_p (pred, SCM_CAR (lst), x)))
+ if (scm_is_true (equal_p (pred, x, SCM_CAR (lst))))
return lst;
}
return SCM_BOOL_F;