mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

(map!): Define as an alias for map, previous definition was not tail-recursive.

Browse source
This commit is contained in:
Kevin Ryde 2003-12-02 21:13:42 +00:00
parent 110348aee9
commit c6424115fe
1 changed files with 2 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

18
srfi/srfi-1.scm
View file

@ -553,22 +553,8 @@
'()
(append! (apply f (map1 car l)) (lp (map1 cdr l)))))))
(define (map! f list1 . rest)
(if (null? rest)
(let lp ((l list1))
(if (null? l)
'()
(begin
(set-car! l (f (car l)))
(set-cdr! l (lp (cdr l)))
l)))
(let lp ((l (cons list1 rest)) (res list1))
(if (any1 null? l)
'()
(begin
(set-car! res (apply f (map1 car l)))
(set-cdr! res (lp (map1 cdr l) (cdr res)))
res)))))
;; OPTIMIZE-ME: Re-use cons cells of list1
(define map! map)
(define (pair-for-each f clist1 . rest)
(if (null? rest)