From b12698d31ae4b8810ee2d778eb970689fffd38e4 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 22 Mar 2009 02:59:59 +0000 Subject: [PATCH] reprovide the scheme/list binding for count, and for append* (as concatenate) svn: r14211 --- collects/srfi/1/misc.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/srfi/1/misc.ss b/collects/srfi/1/misc.ss index 6e59b41ac3..066cacaa1e 100644 --- a/collects/srfi/1/misc.ss +++ b/collects/srfi/1/misc.ss @@ -39,16 +39,18 @@ "selector.ss" "util.ss" (only-in "fold.ss" reduce-right) - (rename-in "fold.ss" [map s:map] [for-each s:for-each])) + (rename-in "fold.ss" [map s:map] [for-each s:for-each]) + (only-in scheme/list count append*)) (provide length+ - concatenate (rename-out [concatenate concatenate!]) + (rename-out [append* concatenate] [append* concatenate!]) (rename-out [append append!]) (rename-out [reverse reverse!]) append-reverse (rename-out [append-reverse append-reverse!]) zip unzip1 unzip2 unzip3 unzip4 unzip5 count) +#; ; reprovided from scheme/list ;; count ;;;;;;;; (define (count pred list1 . lists) @@ -169,6 +171,7 @@ (set-cdr! rev-head tail) (lp next-rev rev-head))))) +#; ; reprovide scheme/list's `append*' function (define (concatenate lists) (reduce-right append '() lists)) #; ; lists are immutable (define (concatenate! lists) (reduce-right my-append! '() lists))