From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 4 Jan 2017 10:20:29 +0000 (+0100)
Subject: Append-map: handle multiple list.
X-Git-Url: https://jxself.org/git/?p=mes.git;a=commitdiff_plain;h=921c2fe79e15c55d2c283d62dff0371168beac47

Append-map: handle multiple list.

* module/srfi/srfi-1.mes (append-map): Add optional rest argument.
---

diff --git a/module/srfi/srfi-1.mes b/module/srfi/srfi-1.mes
index 5069e885..ea6fab4e 100644
--- a/module/srfi/srfi-1.mes
+++ b/module/srfi/srfi-1.mes
@@ -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)