From 6bade7160f0fca2dbc710c95120aeb6c59ac31ba Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 16 Mar 2008 22:57:32 +0000 Subject: [PATCH] restore 'filter' export of srfi/1/list, too svn: r8996 --- collects/srfi/1.ss | 1 - collects/srfi/1/list.ss | 3 ++- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/srfi/1.ss b/collects/srfi/1.ss index 77c839962c..83a260bcb6 100644 --- a/collects/srfi/1.ss +++ b/collects/srfi/1.ss @@ -7,7 +7,6 @@ s:map s:for-each s:member s:assoc) - (rename s:filter filter) (rename s:map map) (rename s:for-each for-each) (rename s:member member) diff --git a/collects/srfi/1/list.ss b/collects/srfi/1/list.ss index e16a1f74d7..ac8318b551 100644 --- a/collects/srfi/1/list.ss +++ b/collects/srfi/1/list.ss @@ -231,7 +231,8 @@ (all-from-out "misc.ss") (all-from-out "fold.ss") (all-from-out "search.ss") - (all-from-out "filter.ss") + (except-out (all-from-out "filter.ss") s:filter) + (rename-out [s:filter filter]) (all-from-out "delete.ss") (all-from-out "alist.ss") (all-from-out "lset.ss"))