summaryrefslogtreecommitdiffstats
path: root/srfi-1.scm
diff options
context:
space:
mode:
authorThomas Bushnell, BSG <tb@debian.org>2008-02-04 20:29:13 -0500
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:41 -0800
commit71dab84adaa579f9386dd8ee09006d3cac625723 (patch)
tree8022514642d25edffdb4bdd130020674b0efd844 /srfi-1.scm
parent897451458bd8eec628c7bbfaccba0dd069830f0f (diff)
parent4684239efa63dc1b2c1cbe37ef7d3062029f5532 (diff)
downloadslib-71dab84adaa579f9386dd8ee09006d3cac625723.tar.gz
slib-71dab84adaa579f9386dd8ee09006d3cac625723.zip
Import Debian changes 3b1-1debian/3b1-1
slib (3b1-1) unstable; urgency=low * New upstream release. * guile.init (library-vicinity): Repeat change from 3a4-2. * slib.texi (Library Catalogs): Repeat change from 3a3-3. * slib.sh: Repeat change from 3a5-3. * slib.1: Repeat change from 3a5-4. * Makefile: Repeat change from 3a2-1.
Diffstat (limited to 'srfi-1.scm')
-rw-r--r--srfi-1.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/srfi-1.scm b/srfi-1.scm
index 98294b0..405f5a4 100644
--- a/srfi-1.scm
+++ b/srfi-1.scm
@@ -497,7 +497,7 @@
(or (null? l)
(letrec ((subset? (lambda (l1 l2)
(or (eq? l1 l2)
- (every (lambda (x) (member x l2)) l1)))))
+ (every (lambda (x) (member x l2 =?)) l1)))))
(let loop ((l1 (car l)) (l (cdr l)))
(or (null? l)
(let ((l2 (car l)))