Append-map: handle multiple list.
[mes.git] / module / srfi / srfi-1.mes
index 5069e885727ec72a3c92ab69588aa151cf578ba2..ea6fab4e3ba0b8a501c992b4bae0b432bfe1402a 100644 (file)
@@ -37,8 +37,8 @@
             (cons (car lst) (loop (cdr lst)))
             (loop (cdr lst))))))
 
-(define (append-map f lst)
-  (apply append (map f lst)))
+(define (append-map f lst . rest)
+  (apply append (apply map f (cons lst rest))))
 
 (define (filter-map f lst)
   (if (null? lst) (list)