mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

(scm_srfi1_member): Correction to pred call arg order, srfi

Browse source 
spec is (PRED X elem).
This commit is contained in:
Kevin Ryde 2005-01-23 21:02:13 +00:00
parent 8e15d7f577
commit 2796304a40
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-1.c
View file

@ -737,7 +737,7 @@ SCM_DEFINE (scm_srfi1_member, "member", 2, 1, 0,
} }
for (; !SCM_NULL_OR_NIL_P (lst); lst = SCM_CDR (lst)) 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 lst;
} }
return SCM_BOOL_F; return SCM_BOOL_F;