Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing list-copy for improper lists.

Browse source
This commit is contained in:
Alex Shinn 2013-09-26 16:09:39 +09:00
parent ddfdd04a8f
commit b27143a96c
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/scheme/extras.scm
View file

@ -150,7 +150,10 @@
(if (>= i n) res (lp (+ i 1) (cons init res)))))) (if (>= i n) res (lp (+ i 1) (cons init res))))))
(define (list-copy ls) (define (list-copy ls)
(reverse (reverse ls))) (let lp ((ls ls) (res '()))
(if (pair? ls)
(lp (cdr ls) (cons (car ls) res))
(append (reverse res) ls))))
(define (list-set! ls k x) (define (list-set! ls k x)
(cond ((null? ls) (error "invalid list index")) (cond ((null? ls) (error "invalid list index"))