This is the mail archive of the kawa@sources.redhat.com mailing list for the Kawa project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

patch for list-tabulate


Below is a patch for the list-tabulate procedure in srfi1.scm.  There
was a simple typo in the procedure.

Regards,
Chris Dean

Index: srfi1.scm
===================================================================
RCS file: /cvs/kawa/kawa/gnu/kawa/slib/srfi1.scm,v
retrieving revision 1.3
diff -u -r1.3 srfi1.scm
--- srfi1.scm	12 Nov 2002 19:09:41 -0000	1.3
+++ srfi1.scm	9 Mar 2003 19:05:14 -0000
@@ -249,7 +249,7 @@
 ;;; Make a list of length LEN. Elt i is (PROC i) for 0 <= i < LEN.
 
 (define (list-tabulate len proc :: <procedure>)
-  (if (or (not (integer? len)) (< n 0))
+  (if (or (not (integer? len)) (< len 0))
       (error "list-tabulate arg#1 must be a non-negative integer"))
   (do ((i (- len 1) (- i 1))
        (ans '() (cons (proc i) ans)))


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]