* boot-9.scm (make-list): Remove the definition of this function

from the (ice-9 common-list) module; make the `init' argument
optional in the	scm module's definition, to match the deleted
definition.  Harmony reigneth?  (Thanks to Bernard URBAN.)

ice-9/boot-9.scm

@@ -507,7 +507,8 @@
 	     n
 	     (loop (+ n 1) (cdr l))))))
 
-(define (make-list n init)
+(define (make-list n . init)
+  (if (pair? init) (set! init (car init)))
   (let loop ((answer '())
 	     (n n))
     (if (<= n 0)
@@ -2949,13 +2950,6 @@
 ;promotional, or sales literature without prior written consent in
 ;each case.
 
-;;;From: hugh@ear.mit.edu (Hugh Secker-Walker)
-(define-public (make-list k . init)
-  (set! init (if (pair? init) (car init)))
-  (do ((k k (+ -1 k))
-       (result '() (cons init result)))
-      ((<= k 0) result)))
-
 (define-public (adjoin e l) (if (memq e l) l (cons e l)))
 
 (define-public (union l1 l2)