From 8b981efda4801c32a9ba64f9fc1799f4335761a3 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Sat, 4 Dec 2004 23:16:52 +0000 Subject: [PATCH] (append-map, append-map!): Rewrite as simple "concatenate map" forms, for tail recursiveness. --- srfi/srfi-1.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm index a937d1a4f..2ebe705f5 100644 --- a/srfi/srfi-1.scm +++ b/srfi/srfi-1.scm @@ -525,10 +525,10 @@ (define map1 map) (define (append-map f clist1 . rest) - (apply append (apply map f clist1 rest))) + (concatenate (apply map f clist1 rest))) (define (append-map! f clist1 . rest) - (apply append! (apply map f clist1 rest))) + (concatenate! (apply map f clist1 rest))) ;; OPTIMIZE-ME: Re-use cons cells of list1 (define map! map)