From 3675f3a5eabf0f7df484717e88e0e8ab82d3412c Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 27 Nov 2011 21:32:31 +0900
Subject: [PATCH] forgot to cdr in list-set!

---
 lib/scheme/extras.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/scheme/extras.scm b/lib/scheme/extras.scm
index d3786aa8..e787eda4 100644
--- a/lib/scheme/extras.scm
+++ b/lib/scheme/extras.scm
@@ -71,7 +71,7 @@
 (define (list-set! ls k x)
   (cond ((null? ls) (error "invalid list index"))
         ((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)
   (if (null? lov)