mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

fix srfi-1 map-in-order definition

Browse source 
* module/srfi/srfi-1.scm (map-in-order): As we are not extending the
  core `map' binding, actually make a new `map-in-order' alias here.
  Fixes fresh builds.
This commit is contained in:
Andy Wingo 2011-05-07 11:31:38 +02:00
parent 7b292a9d34
commit b706a01129
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/srfi/srfi-1.scm
View file

@ -566,6 +566,8 @@ has just one element then that's the return value."
(mapn (cdr l1) (map cdr rest) (1- len) (mapn (cdr l1) (map cdr rest) (1- len)
(cons (apply f (car l1) (map car rest)) out)))))))) (cons (apply f (car l1) (map car rest)) out))))))))
(define map-in-order map)
(define for-each (define for-each
(case-lambda (case-lambda
((f l) ((f l)