From a8109cc0ae3e7360c9abfc8aa88127daf834fd42 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Fri, 28 Jan 2005 21:51:15 +0000
Subject: [PATCH] (remove): Rewrite in C, a trivial adaption from scm_filter in
 the core. (remove!): Use filter!.

---
 srfi/srfi-1.scm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index ae9160c80..d67b70520 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -567,14 +567,11 @@
 
 ;;; Filtering & partitioning
 
-(define (remove pred list)
-  (filter (lambda (x) (not (pred x))) list))
-
 (define (partition! pred list)
   (partition pred list))		; XXX:optimize
 
 (define (remove! pred list)
-  (remove pred list))			; XXX:optimize
+  (filter! (lambda (x) (not (pred x))) list))
 
 ;;; Searching