This is the mail archive of the
kawa@sources.redhat.com
mailing list for the Kawa project.
patch for list-tabulate
- From: Chris Dean <Chris dot Dean at sokitomi dot com>
- To: Kawa List <kawa at sources dot redhat dot com>
- Date: Sun, 09 Mar 2003 11:07:43 -0800
- Subject: 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)))