summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2004-12-04 23:16:52 +0000
committerKevin Ryde <user42@zip.com.au>2004-12-04 23:16:52 +0000
commit8b981efda4801c32a9ba64f9fc1799f4335761a3 (patch)
tree72c27b42c12a49bac57e65b85ae3736654c431f7 /srfi/srfi-1.scm
parentbbd1b480f40c96a0b84fb29c050d028d4b5f1e6f (diff)
downloadguile-8b981efda4801c32a9ba64f9fc1799f4335761a3.tar.gz
(append-map, append-map!): Rewrite as simple "concatenate map" forms,
for tail recursiveness.
Diffstat (limited to 'srfi/srfi-1.scm')
-rw-r--r--srfi/srfi-1.scm4
1 files 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)