From 47678fe3bc6d0c972b7af88251118a704b8c271c Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Tue, 9 May 2000 19:43:14 +0000 Subject: [PATCH] * common-list.scm (delete-if-not!): Bug fix of bug fix: change label of named let to `delete-if-not'. Sorry. --- ice-9/common-list.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/common-list.scm b/ice-9/common-list.scm index a097184db..49889e6db 100644 --- a/ice-9/common-list.scm +++ b/ice-9/common-list.scm @@ -162,7 +162,7 @@ Returns everything that's left." (define-public (delete-if-not! pred list) "Destructive version of `remove-if-not'." - (let delete-if ((list list)) + (let delete-if-not ((list list)) (cond ((null? list) '()) ((not (pred (car list))) (delete-if-not (cdr list))) (else