guile/guile-core/srfi ChangeLog srfi-1.scm

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   01/07/03 13:18:39

Modified files:
        guile-core/srfi: ChangeLog srfi-1.scm 

Log message:
        (map-in-order): defined and exported, to support lists of unequal
        length.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/ChangeLog.diff?cvsroot=OldCVS&tr1=1.41&tr2=1.42&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-1.scm.diff?cvsroot=OldCVS&tr1=1.6&tr2=1.7&r1=text&r2=text

Patches:
Index: guile/guile-core/srfi/ChangeLog
diff -u guile/guile-core/srfi/ChangeLog:1.41 
guile/guile-core/srfi/ChangeLog:1.42
--- guile/guile-core/srfi/ChangeLog:1.41        Tue Jul  3 11:55:28 2001
+++ guile/guile-core/srfi/ChangeLog     Tue Jul  3 13:18:39 2001
@@ -4,6 +4,8 @@
        delete!, assoc): don't export until the new bindings have been
        created.  otherwise "export" thinks they are being re-exported and
        a deprecation warning is produced.
+       (map-in-order): defined and exported, to support lists of unequal
+       length.
 
 2001-07-03  Martin Grabmueller  <address@hidden>
 
Index: guile/guile-core/srfi/srfi-1.scm
diff -u guile/guile-core/srfi/srfi-1.scm:1.6 
guile/guile-core/srfi/srfi-1.scm:1.7
--- guile/guile-core/srfi/srfi-1.scm:1.6        Tue Jul  3 11:54:43 2001
+++ guile/guile-core/srfi/srfi-1.scm    Tue Jul  3 13:18:39 2001
@@ -169,7 +169,7 @@
  append-map
  append-map!
  map!
- ;; map-in-order                       <= in the core
+ ;; map-in-order  ; exported below
  pair-for-each
  filter-map
 
@@ -608,6 +608,8 @@
        '()
        (cons (apply f (map1 car l)) (lp (map1 cdr l)))))))
 
+;; extended to lists of unequal length.
+(define map-in-order map)
 
 ;; This `for-each' is extended from the standard `for-each'.  It
 ;; allows argument lists of different length, so that the shortest
@@ -1028,4 +1030,4 @@
 
 ;; extended versions of builtin procedures.  exporting is delayed until the
 ;; new bindings have been created.
-(export iota map for-each list-index member delete delete! assoc)
+(export iota map map-in-order for-each list-index member delete delete! assoc)