From: Chris Hanson Date: Wed, 20 Jan 2010 03:09:47 +0000 (-0800) Subject: Fix arg order to LSET-DIFFERENCE. X-Git-Tag: 20100708-Gtk~126^2~35 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=81883e361d489df14e3af152f9b68288eb69ce6b;p=mit-scheme.git Fix arg order to LSET-DIFFERENCE. --- diff --git a/src/runtime/srfi-1.scm b/src/runtime/srfi-1.scm index 0e6f56213..b0cb50d31 100644 --- 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 =)