~ chicken-core (chicken-5) 4f67fc36761bfdca06ef99904a2c86851d51264b

commit 4f67fc36761bfdca06ef99904a2c86851d51264b
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Oct 28 09:38:21 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Oct 28 09:38:21 2010 -0400

    setter for list-ref

diff --git a/library.scm b/library.scm
index d2f0c6f9..c6fc5ef6 100644
--- a/library.scm
+++ b/library.scm
@@ -2109,6 +2109,12 @@ EOF
 (set! string-ref (getter-with-setter string-ref string-set! "(string-ref str i)"))
 (set! vector-ref (getter-with-setter vector-ref vector-set! "(vector-ref vec i)"))
 
+(set! list-ref 
+  (getter-with-setter 
+   list-ref
+   (lambda (x i y) (set-car! (list-tail x i) y))
+   "(list-ref lst i)"))
+
 
 ;;; Parameters: