mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

(append-map, append-map!): Rewrite as simple "apply append" forms, for

Browse source 
tail recursiveness.
This commit is contained in:
Kevin Ryde 2004-12-04 23:13:16 +00:00
parent 890ed2790b
commit 66f0ff4ab9
1 changed files with 3 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

21
srfi/srfi-1.scm
View file

@ -674,27 +674,10 @@
(define (append-map f clist1 . rest) (define (append-map f clist1 . rest)
(if (null? rest) (apply append (apply map f clist1 rest)))
(let lp ((l clist1))
(if (null? l)
'()
(append (f (car l)) (lp (cdr l)))))
(let lp ((l (cons clist1 rest)))
(if (any1 null? l)
'()
(append (apply f (map1 car l)) (lp (map1 cdr l)))))))
(define (append-map! f clist1 . rest) (define (append-map! f clist1 . rest)
(if (null? rest) (apply append! (apply map f clist1 rest)))
(let lp ((l clist1))
(if (null? l)
'()
(append! (f (car l)) (lp (cdr l)))))
(let lp ((l (cons clist1 rest)))
(if (any1 null? l)
'()
(append! (apply f (map1 car l)) (lp (map1 cdr l)))))))
(define (map! f list1 . rest) (define (map! f list1 . rest)
(if (null? rest) (if (null? rest)