summaryrefslogtreecommitdiff
path: root/module/srfi
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-05-09 00:13:04 +0200
committerAndy Wingo <wingo@pobox.com>2011-05-09 00:13:04 +0200
commite690a3cbf290a39ede4b3a390e940702cddf6da8 (patch)
tree7ce19a861ece2c18fa4d91842b5a4894b26698ea /module/srfi
parent059a588fedf377ffd32cc1f1fee7ed829b263890 (diff)
parent8f6a4b248b12db2c56ab29e909ba1441aa8f512d (diff)
downloadguile-e690a3cbf290a39ede4b3a390e940702cddf6da8.tar.gz
Merge remote-tracking branch 'origin/stable-2.0'
Diffstat (limited to 'module/srfi')
-rw-r--r--module/srfi/srfi-1.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/module/srfi/srfi-1.scm b/module/srfi/srfi-1.scm
index bcaca65d7..c60f6257f 100644
--- a/module/srfi/srfi-1.scm
+++ b/module/srfi/srfi-1.scm
@@ -566,6 +566,8 @@ has just one element then that's the return value."
(mapn (cdr l1) (map cdr rest) (1- len)
(cons (apply f (car l1) (map car rest)) out))))))))
+(define map-in-order map)
+
(define for-each
(case-lambda
((f l)