* qmtp.el (qmtp-timeout): New user option.

[elisp/flim.git] / net-trans.el

diff --git a/net-trans.el b/net-trans.el
index 8e8fefc..6a905bd 100644 (file)
--- a/net-trans.el
+++ b/net-trans.el
@@ -54,13 +54,13 @@
     (|| net-transaction-compose-||)))
 
 (defun net-transaction-compose-&& (left right)
-  "Multiplicative operator of current transaction LEFT and RIGHT."
+  "Multiplicative combinator which composes LEFT and RIGHT operations."
   `(lambda (trans)
      (let ((next (funcall #',left trans)))
        (funcall #',right next))))
 
 (defun net-transaction-compose-|| (left right)
-  "Additive operator of current transaction LEFT and RIGHT."
+  "Additive combinator which composes LEFT and RIGHT operations."
   `(lambda (trans)
      (let (next error)
        (setq error
@@ -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