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

diff --git a/src/edwin/ring.scm b/src/edwin/ring.scm
index 21beeae298d79cf1c6b399b82eedf925edf02eb9..f6330b3782fce95d84957095407c718eeb742b0f 100644 (file)
--- 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 '()))