From 709ba0500558819b3d53475982bd4c571f41eca1 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sat, 23 May 2009 07:48:59 +0000
Subject: [PATCH] make-list from srfi/1 makes the second argument optional

svn: r14953
---
 collects/srfi/1/cons.ss | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/collects/srfi/1/cons.ss b/collects/srfi/1/cons.ss
index 45230fb774..c1507acb97 100644
--- a/collects/srfi/1/cons.ss
+++ b/collects/srfi/1/cons.ss
@@ -34,7 +34,8 @@
 
 #lang scheme/base
 
-(require srfi/optional "selector.ss" (only-in scheme/list make-list))
+(require srfi/optional "selector.ss"
+         (only-in scheme/list [make-list make-list*]))
 
 (provide xcons
          make-list
@@ -50,10 +51,7 @@
 
 ;; Make a list of length LEN.
 
-;; reprovided from mzscheme
-;; (define (make-list len [elt #f])
-;;   (check-arg (lambda (n) (and (integer? n) (>= n 0))) len 'make-list)
-;;   (for/list ([i (in-range len)]) elt))
+(define (make-list len [elt #f]) (make-list* len elt))
 
 ;; Make a list of length LEN. Elt i is (PROC i) for 0 <= i < LEN.