srfi-1 alist-delete equality proc arg order

[Kevin Ryde]

I fixed a bug in alist-delete, it's supposed to have the target key as
the first argument to the equality test function.  That's in the spec
and the guile docs, but was the wrong way around.

--- srfi-1.scm.~1.37.~  2004-12-05 17:16:10.000000000 +1100
+++ srfi-1.scm  2004-12-06 10:46:11.000000000 +1100
@@ -710,7 +710,7 @@
     (let lp ((a alist))
       (if (null? a)
        '()
-       (if (k= (caar a) key)
+       (if (k= key (caar a))
          (lp (cdr a))
          (cons (car a) (lp (cdr a))))))))