From f61e3ac415b717e1cd5f821a3ecaf7229f6533d9 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 1 Aug 2010 16:20:43 +0900 Subject: [PATCH] fixing bug in delete --- lib/srfi/1/deletion.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/srfi/1/deletion.scm b/lib/srfi/1/deletion.scm index 70ee5cc5..2d44275a 100644 --- a/lib/srfi/1/deletion.scm +++ b/lib/srfi/1/deletion.scm @@ -10,7 +10,7 @@ (if tail (lp (cdr tail) (take-up-to-reverse ls tail rev)) (if (pair? rev) (append-reverse! rev ls) ls)))) - (filter (lambda (y) (eq x y)) ls)))) + (remove (lambda (y) (eq x y)) ls)))) (define delete! delete)