(delete): Fix predicate arg order to match srfi-1 spec.

diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index 5aa63f4..f65c4c7 100644 (file)
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -802,7 +802,7 @@
     (let lp ((l list))
       (if (null? l)
        '()
-       (if (l= (car l) x)
+       (if (l= x (car l))
          (lp (cdr l))
          (cons (car l) (lp (cdr l))))))))