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

Merge pull request #137 from stibear/srfi1 

correct `pair-for-each`
This commit is contained in:
Yuichi Nishiwaki 2014-06-19 00:47:55 +09:00
parent 2ce361a7bc 72dabaa24d
commit 0ce1f4af32
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)