(append-map, append-map!): Rewrite as simple "concatenate map" forms,

for tail recursiveness.

diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index a937d1a..2ebe705 100644 (file)
--- 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)