From 7aa7a8fefb1edd95d8fcd6f4bb68d59ed608d785 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 12 Feb 2016 23:45:04 -0500 Subject: [PATCH] Allow string-map to accept multiple lists --- scheme/base.sld | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index 87f4cdd5..94e54c62 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -735,8 +735,9 @@ (string-set! str i fill) (loop (+ i 1))))))) (loop start))) - (define (string-map func str) - (list->string (map func (string->list str)))) + (define (string-map func str1 . strs) + (list->string + (apply map `(,func ,(string->list str1) ,@(map string->list strs))))) (define (string-for-each func str) (for-each func (string->list str))) (define (vector-map func vec)