From: ueno <ueno>
Date: Tue, 15 Aug 2000 04:37:54 +0000 (+0000)
Subject: * net-trans.el (net-transaction-fold-left): Rename.
X-Git-Tag: deisui-1_14_0-1~57
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=270de5841206e591f2063f511d6c082a960b0ca7;p=elisp%2Fflim.git

* net-trans.el (net-transaction-fold-left): Rename.
---

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