From 4684239efa63dc1b2c1cbe37ef7d3062029f5532 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:40 -0800 Subject: Import Upstream version 3b1 --- srfi-1.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'srfi-1.scm') 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))) -- cgit v1.2.3