From 8baa4326c5391f74684efc4cc70261a685cc84e5 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 6 Sep 2016 16:41:01 -0400 Subject: [PATCH] Remove r7rs code --- srfi/list-queues/list-queues-impl.scm | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/srfi/list-queues/list-queues-impl.scm b/srfi/list-queues/list-queues-impl.scm index 913dd4ec..49742b97 100644 --- a/srfi/list-queues/list-queues-impl.scm +++ b/srfi/list-queues/list-queues-impl.scm @@ -1,24 +1,5 @@ ;;;; Implementation of list-queue SRFI -;;; R7RS shims. Comment these out on an R7RS system. -;;; I stole this code from Chibi Scheme, which is BSD-licensed. - -(define (make-list n . o) - (let ((default (if (pair? o) (car o)))) - (let lp ((n n) (res '())) - (if (<= n 0) res (lp (- n 1) (cons default res)))))) - -(define (list-copy ls) - (let lp ((ls ls) (res '())) - (if (pair? ls) - (lp (cdr ls) (cons (car ls) res)) - (append (reverse res) ls)))) - -(define (list-set! ls k x) - (cond ((null? ls) (error "invalid list index")) - ((zero? k) (set-car! ls x)) - (else (list-set! (cdr ls) (- k 1) x)))) - ;;; This definition is from Chibi's SRFI-1 implementation. (define (last-pair ls) (if (null? (cdr ls)) ls (last-pair (cdr ls))))