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

forgot to cdr in list-set!

Browse source
This commit is contained in:
Alex Shinn 2011-11-27 21:32:31 +09:00
parent 8345f7d74c
commit 3675f3a5ea
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/scheme/extras.scm
View file

@ -71,7 +71,7 @@
(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"))
((zero? k) (set-car! ls x)) ((zero? k) (set-car! ls x))
(else (list-set! ls (- k 1) x)))) (else (list-set! (cdr ls) (- k 1) x))))
(define (vector-map proc vec . lov) (define (vector-map proc vec . lov)
(if (null? lov) (if (null? lov)