Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

map handles mismatched list lengths when the first list isn't the shortest

Browse source
This commit is contained in:
Alex Shinn 2011-11-27 21:43:58 +09:00
parent b84dba8425
commit a4bd018480
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/init-7.scm
View file

@ -76,7 +76,7 @@
(map1 proc (cdr ls) (cons (proc (car ls)) res))
(reverse res)))
(define (mapn proc lol res)
(if (pair? (car lol))
(if (every pair? lol)
(mapn proc
(map1 cdr lol '())
(cons (apply1 proc (map1 car lol '())) res))