From 270de5841206e591f2063f511d6c082a960b0ca7 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 15 Aug 2000 04:37:54 +0000 Subject: [PATCH] * net-trans.el (net-transaction-fold-left): Rename. --- net-trans.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/net-trans.el b/net-trans.el index 8e8fefc..a3abf93 100644 --- a/net-trans.el +++ b/net-trans.el @@ -71,11 +71,11 @@ (funcall #',right trans) next)))) -(defun net-transaction-compose-fold-left (function accu sequence) +(defun net-transaction-fold-left (function accu sequence) "Apply FUNCTION to ACCU while folding SEQUENCE left to right." (if (null sequence) accu - (net-transaction-compose-fold-left + (net-transaction-fold-left function (funcall function accu (car sequence)) (cdr sequence)))) @@ -90,7 +90,7 @@ (if (null combinator) (error "Unknown operator") (setq accu - (net-transaction-compose-fold-left + (net-transaction-fold-left `(lambda (accu c) (funcall #',(nth 1 combinator) accu -- 1.7.10.4