From: Joe Marshall <eval.apply@gmail.com>
Date: Mon, 13 Jun 2011 23:04:27 +0000 (-0700)
Subject: Remove list-ref and list-set! definitions (duplicates).
X-Git-Tag: release-9.1.0~22^2~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4fed78a3600d6456fd3d14811cfc3c37e02076ec;p=mit-scheme.git

Remove list-ref and list-set! definitions (duplicates).
---

diff --git a/src/edwin/ring.scm b/src/edwin/ring.scm
index 21beeae29..f6330b378 100644
--- a/src/edwin/ring.scm
+++ b/src/edwin/ring.scm
@@ -41,18 +41,6 @@ USA.
 (define ring-set!)
 (let ()
 
-(define (list-ref l i)
-  (cond ((null? l) (error "Index too large" 'LIST-REF))
-	((zero? i) (car l))
-	(else (list-ref (cdr l) (-1+ i)))))
-
-(define (list-set! l i o)
-  (let loop ((l l) (i i))
-    (cond ((null? l) (error "index too large" i))
-	  ((zero? i) (set-car! l o))
-	  (else (list-ref (cdr l) (-1+ i)))))
-  unspecific)
-
 (define (list-truncate! l i)
   (cond ((null? l) unspecific)
 	((= i 1) (set-cdr! l '()))