summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1997-06-23 23:44:20 +0000
committerJim Blandy <jimb@red-bean.com>1997-06-23 23:44:20 +0000
commit75fd4fb691a9276464009b8fb50aacaf9f6e81e8 (patch)
tree0c3883c5fc32e4d39eca4f3a56f3c826b3e9e451
parentcc914709faa1f7225825a472e2161a131817c283 (diff)
downloadguile-75fd4fb691a9276464009b8fb50aacaf9f6e81e8.tar.gz
* 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.)
-rw-r--r--ice-9/boot-9.scm10
1 files changed, 2 insertions, 8 deletions
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 25831be53..eb7b656c9 100644
--- a/ice-9/boot-9.scm
+++ b/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)