From 4fed78a3600d6456fd3d14811cfc3c37e02076ec Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Mon, 13 Jun 2011 16:04:27 -0700 Subject: [PATCH] Remove list-ref and list-set! definitions (duplicates). --- src/edwin/ring.scm | 12 ------------ 1 file changed, 12 deletions(-) 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 '())) -- 2.25.1