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

[Martin Grabmueller]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Martin Grabmueller <address@hidden>     01/07/03 08:35:08

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

Log message:
        * srfi-1.scm (list-tabulate): Do not go into infinite loop for
        invalid arguments.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/ChangeLog.diff?cvsroot=OldCVS&tr1=1.38&tr2=1.39&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-1.scm.diff?cvsroot=OldCVS&tr1=1.3&tr2=1.4&r1=text&r2=text

Patches:
Index: guile/guile-core/srfi/ChangeLog
diff -u guile/guile-core/srfi/ChangeLog:1.38 
guile/guile-core/srfi/ChangeLog:1.39
--- guile/guile-core/srfi/ChangeLog:1.38        Mon Jul  2 10:50:28 2001
+++ guile/guile-core/srfi/ChangeLog     Tue Jul  3 08:35:08 2001
@@ -1,3 +1,8 @@
+2001-07-03  Martin Grabmueller  <address@hidden>
+
+       * srfi-1.scm (list-tabulate): Do not go into infinite loop for
+       invalid arguments.
+
 2001-07-02  Martin Grabmueller  <address@hidden>
 
        * srfi-1.scm: Replaced calls to `map' in several procedures to
Index: guile/guile-core/srfi/srfi-1.scm
diff -u guile/guile-core/srfi/srfi-1.scm:1.3 
guile/guile-core/srfi/srfi-1.scm:1.4
--- guile/guile-core/srfi/srfi-1.scm:1.3        Mon Jul  2 10:50:28 2001
+++ guile/guile-core/srfi/srfi-1.scm    Tue Jul  3 08:35:08 2001
@@ -242,7 +242,7 @@
 
 (define (list-tabulate n init-proc)
   (let lp ((n n) (acc '()))
-    (if (zero? n)
+    (if (<= n 0)
       acc
       (lp (- n 1) (cons (init-proc (- n 1)) acc)))))