mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

(make-list): Moved to C code in list.c

Browse source
This commit is contained in:
Kevin Ryde 2005-04-23 00:03:33 +00:00
parent dc1e26b0b2
commit ab661b7073
1 changed files with 0 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ice-9/boot-9.scm
View file

@ -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}