diff options
author | Jim Blandy <jimb@red-bean.com> | 1997-06-23 23:44:20 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1997-06-23 23:44:20 +0000 |
commit | 75fd4fb691a9276464009b8fb50aacaf9f6e81e8 (patch) | |
tree | 0c3883c5fc32e4d39eca4f3a56f3c826b3e9e451 | |
parent | cc914709faa1f7225825a472e2161a131817c283 (diff) | |
download | guile-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.scm | 10 |
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) |