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

diff --git a/net-trans.el b/net-trans.el
index 8e8fefc..a3abf93 100644 (file)
--- 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