diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-05-07 11:31:38 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-05-07 11:31:38 +0200 |
| commit | b706a0112978b1daa4535dff2808eac299167bbf (patch) | |
| tree | 2f6f8abbbe8caccae0362e44c5ce672d85299441 | |
| parent | 7b292a9d349bd09be4a493a51812d66b7ecbc728 (diff) | |
| download | guile-b706a0112978b1daa4535dff2808eac299167bbf.tar.gz | |
fix srfi-1 map-in-order definition
* 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.
| -rw-r--r-- | module/srfi/srfi-1.scm | 2 |
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) |