From: ueno <ueno>
Date: Wed, 23 Aug 2000 02:47:42 +0000 (+0000)
Subject: Fix local variable name.
X-Git-Tag: deisui-1_14_0-1~31
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e4e4e9cbc9f7ea0b73b8bd037570aad9ab872418;p=elisp%2Fflim.git

Fix local variable name.
---

diff --git a/tram.el b/tram.el
index 6820b7f..18c930b 100644
--- a/tram.el
+++ b/tram.el
@@ -44,36 +44,36 @@
 (luna-define-generic tram-stream-error (stream error)
   "Throw an ERROR of the STREAM.")
 
-(luna-define-method tram-stream-error-name ((trans tram-stream))
-  (intern (format "%s-error" (luna-class-name trans))))
+(luna-define-method tram-stream-error-name ((stream tram-stream))
+  (intern (format "%s-error" (luna-class-name stream))))
 
-(luna-define-method tram-stream-error ((trans tram-stream) error)
-  (throw (tram-stream-error-name trans) error))
+(luna-define-method tram-stream-error ((stream tram-stream) error)
+  (throw (tram-stream-error-name stream) error))
 
 (put '&& 'tram-compose-function #'tram-compose-&&)
 (put '|| 'tram-compose-function #'tram-compose-||)
 
 (defun tram-compose-&& (left right)
   "Multiplicative combinator which composes LEFT and RIGHT operations."
-  `(lambda (trans)
+  `(lambda (stream)
      (let ((next
 	    ,(if (functionp left)
-		 `(closure-call #',left trans)
-	       `(closure-call ',left trans))))
+		 `(closure-call #',left stream)
+	       `(closure-call ',left stream))))
        ,(if (functionp right)
 	    `(closure-call #',right next)
 	  `(closure-call ',right next)))))
 
 (defun tram-compose-|| (left right)
   "Additive combinator which composes LEFT and RIGHT operations."
-  `(lambda (trans)
+  `(lambda (stream)
      (let (next error)
        (setq error
-	     (catch (tram-stream-error-name trans)
+	     (catch (tram-stream-error-name stream)
 	       (setq next
 		     ,(if (functionp left)
-			   `(closure-call #',left trans)
-			 `(closure-call ',left trans)))
+			   `(closure-call #',left stream)
+			 `(closure-call ',left stream)))
 	       nil))
        (if error
 	   ,(if (functionp right)
@@ -82,7 +82,7 @@
 	 next))))
 
 (defun tram-fold-left (function accu sequence)
-  "Apply FUNCTION to ACCU while folding SEQUENCE left to right."
+  "Apply FUNCTION to ACCU while folding SEQUENCE from left to right."
   (if (null sequence)
       accu
     (tram-fold-left
@@ -102,23 +102,20 @@
   (if (not (symbolp (car tram-transaction)))
       tram-transaction
     (let ((combinator
-	   (get (pop tram-transaction) 'tram-compose-function))
-	  accu)
-      (if (null combinator)
-	  (error "Unknown operator")
-	(setq accu
-	      (tram-fold-left
-	       `(lambda (accu c)
-		  (funcall
-		   #',combinator accu
-		   (if (listp c)
-		       (tram-compose-transaction c)
-		     c)))
-	       (if (listp (car tram-transaction))
-		   (tram-compose-transaction (pop tram-transaction))
-		 (pop tram-transaction))
-	       tram-transaction))
-	accu))))
+	   (get (pop tram-transaction) 'tram-compose-function)))
+      (or combinator
+	  (error "Unknown operator"))
+      (tram-fold-left
+       `(lambda (accu c)
+	  (funcall
+	   #',combinator accu
+	   (if (listp c)
+	       (tram-compose-transaction c)
+	     c)))
+       (if (listp (car tram-transaction))
+	   (tram-compose-transaction (pop tram-transaction))
+	 (pop tram-transaction))
+       tram-transaction))))
 
 (provide 'tram)