From 71939f792215c51cd36af6944877f20fbf6db75c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 7 Oct 1988 08:52:36 +0000 Subject: [PATCH] Rename `reduce-reversed' to `reduce-right'. --- v7/src/runtime/list.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/list.scm b/v7/src/runtime/list.scm index d28d8cd46..b8e81ff0f 100644 --- a/v7/src/runtime/list.scm +++ b/v7/src/runtime/list.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/list.scm,v 14.3 1988/10/06 06:38:35 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/list.scm,v 14.4 1988/10/07 08:52:36 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -326,11 +326,11 @@ MIT in each case. |# (result l value))) (result list initial)))) -(define (reduce-reversed f initial list) +(define (reduce-right f initial list) (let ((result (lambda (l value) (if (not (null? l)) - (error "REDUCE-REVERSED: Argument not a list" list)) + (error "REDUCE-RIGHT: Argument not a list" list)) value))) (if (pair? list) (let loop ((value (car list)) (l (cdr list))) -- 2.25.1