Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Accept multiple list args

Browse source
This commit is contained in:
Justin Ethier 2016-02-12 23:51:00 -05:00
parent 7aa7a8fefb
commit c427549c0a
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
scheme/base.sld
View file

@ -738,12 +738,13 @@
(define (string-map func str1 . strs) (define (string-map func str1 . strs)
(list->string (list->string
(apply map `(,func ,(string->list str1) ,@(map string->list strs))))) (apply map `(,func ,(string->list str1) ,@(map string->list strs)))))
(define (string-for-each func str) (define (string-for-each func str1 . strs)
(for-each func (string->list str))) (apply for-each `(,func ,(string->list str1) ,@(map string->list strs))))
(define (vector-map func vec) (define (vector-map func vec1 . vecs)
(list->vector (map func (vector->list vec)))) (list->vector
(define (vector-for-each func vec) (apply map `(,func ,(vector->list vec1) ,@(map vector->list vecs)))))
(for-each func (vector->list vec))) (define (vector-for-each func vec1 . vecs)
(apply for-each `(,func ,(vector->list vec1) ,@(map vector->list vecs))))
(define (vector-append . vecs) (define (vector-append . vecs)
(list->vector (list->vector
(apply append (map vector->list vecs)))) (apply append (map vector->list vecs))))