conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

correct `pair-for-each`

This commit is contained in:
stibear 2014-06-18 22:00:24 +09:00
parent 2ce361a7bc
commit 72dabaa24d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
piclib/srfi/1.scm
View File

@ -358,10 +358,10 @@
(if (null? clist)
(let rec ((clist clist))
(if (pair? clist)
(begin (f (car clist)) (rec (cdr clist)))))
(begin (f clist) (rec (cdr clist)))))
(let rec ((clists (cons clist clists)))
(if (every pair? clists)
(begin (apply f (map car clists)) (rec (map cdr clists)))))))
(begin (apply f clists) (rec (map cdr clists)))))))
(define (map! f list . lists)
(if (null? lists)