From 921c2fe79e15c55d2c283d62dff0371168beac47 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Wed, 4 Jan 2017 11:20:29 +0100 Subject: [PATCH] Append-map: handle multiple list. * module/srfi/srfi-1.mes (append-map): Add optional rest argument. --- module/srfi/srfi-1.mes | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)