cvs srfi-1 member call arg order

[Kevin Ryde]

        * 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;