mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-16 00:30:21 +02:00
(make-list): Moved to C code in list.c
This commit is contained in:
parent
dc1e26b0b2
commit
ab661b7073
1 changed files with 0 additions and 8 deletions
|
@ -487,14 +487,6 @@
|
||||||
n
|
n
|
||||||
(loop (+ n 1) (cdr l))))))
|
(loop (+ n 1) (cdr l))))))
|
||||||
|
|
||||||
(define (make-list n . init)
|
|
||||||
(if (pair? init) (set! init (car init)))
|
|
||||||
(let loop ((answer '())
|
|
||||||
(n n))
|
|
||||||
(if (<= n 0)
|
|
||||||
answer
|
|
||||||
(loop (cons init answer) (- n 1)))))
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;;; {and-map and or-map}
|
;;; {and-map and or-map}
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue