Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 13:37:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Using the version of list-copy which supports dotted tails.

Browse source
This commit is contained in:
Alex Shinn 2014-01-26 10:03:11 +09:00
parent e0fc986db8
commit 9e5e3fcec3
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/init-7.scm
View file

@ -23,8 +23,6 @@
(define (list . args) args) (define (list . args) args)
(define (list-copy ls) (reverse! (reverse ls)))
(define (list-tail ls k) (define (list-tail ls k)
(if (eq? k 0) (if (eq? k 0)
ls ls
@ -451,6 +449,12 @@
(let lp ((n n) (res '())) (let lp ((n n) (res '()))
(if (<= n 0) res (lp (- n 1) (cons default res)))))) (if (<= n 0) res (lp (- n 1) (cons default res))))))
(define (list-copy ls)
(let lp ((ls ls) (res '()))
(if (pair? ls)
(lp (cdr ls) (cons (car ls) res))
(append (reverse res) ls))))
(define (member obj ls . o) (define (member obj ls . o)
(let ((eq (if (pair? o) (car o) equal?))) (let ((eq (if (pair? o) (car o) equal?)))
(let lp ((ls ls)) (let lp ((ls ls))