From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Oct 1988 08:52:36 +0000 (+0000)
Subject: Rename `reduce-reversed' to `reduce-right'.
X-Git-Tag: 20090517-FFI~12522
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=71939f792215c51cd36af6944877f20fbf6db75c;p=mit-scheme.git

Rename `reduce-reversed' to `reduce-right'.
---

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)))