From 4d6456873651548bbd6f3e13d3e49b8193714555 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 20 Apr 2010 21:12:24 +0900 Subject: [PATCH] fixing bug in lset-union (thanks to alexander shendi) --- lib/srfi/1/lset.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/srfi/1/lset.scm b/lib/srfi/1/lset.scm index f2ffc4ae..8565fac3 100644 --- a/lib/srfi/1/lset.scm +++ b/lib/srfi/1/lset.scm @@ -23,7 +23,7 @@ (define (lset-union2 eq a b) (if (null? b) a - (lset-union2 (cdr b) (if (member (car b) a eq) a (cons (car b) a))))) + (lset-union2 eq (if (member (car b) a eq) a (cons (car b) a)) (cdr b)))) (define (lset-union eq . sets) (reduce (lambda (a b) (lset-union2 eq a b)) '() sets))