[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
cvs srfi-1 member call arg order
From: |
Kevin Ryde |
Subject: |
cvs srfi-1 member call arg order |
Date: |
Mon, 24 Jan 2005 08:01:29 +1100 |
User-agent: |
Gnus/5.110003 (No Gnus v0.3) Emacs/21.3 (gnu/linux) |
* srfi-1.c (scm_srfi1_member): Correction to pred call arg order, srfi
spec is (PRED X elem).
1.6 is ok, this crept in with the conversion to C.
Index: srfi-1.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/srfi/srfi-1.c,v
retrieving revision 1.18
diff -u -u -r1.18 srfi-1.c
--- srfi-1.c 10 Jan 2005 01:50:29 -0000 1.18
+++ srfi-1.c 23 Jan 2005 20:59:16 -0000
@@ -737,7 +737,7 @@
}
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- cvs srfi-1 member call arg order,
Kevin Ryde <=