Fix arg order to LSET-DIFFERENCE.

diff --git a/src/runtime/srfi-1.scm b/src/runtime/srfi-1.scm
index 0e6f56213a0a53189b8f5dc296728fc5e8d99eb2..b0cb50d31ddff8a9b2c8ca8d6f4693d1a1dc1e79 100644 (file)
--- a/src/runtime/srfi-1.scm
+++ b/src/runtime/srfi-1.scm
@@ -924,7 +924,7 @@ USA.
            ;; Compute a-b and a^b, then compute b-(a^b) and
            ;; cons it onto the front of a-b.
            (receive (a-b a-int-b)   (lset-diff+intersection = a b)
-             (cond ((null? a-b)     (lset-difference b a =))
+             (cond ((null? a-b)     (lset-difference = b a))
                    ((null? a-int-b) (append b a))
                    (else (fold (lambda (xb ans)
                                  (if (member xb a-int-b =) ans (cons xb ans)))
@@ -944,7 +944,7 @@ USA.
            ;; Compute a-b and a^b, then compute b-(a^b) and
            ;; cons it onto the front of a-b.
            (receive (a-b a-int-b)   (lset-diff+intersection! = a b)
-             (cond ((null? a-b)     (lset-difference! b a =))
+             (cond ((null? a-b)     (lset-difference! = b a))
                    ((null? a-int-b) (append! b a))
                    (else (pair-fold (lambda (b-pair ans)
                                       (if (member (car b-pair) a-int-b =)