From: ueno <ueno>
Date: Mon, 14 Aug 2000 16:17:07 +0000 (+0000)
Subject: * net-trans.el (transaction-error): New generic function.
X-Git-Tag: deisui-1_14_0-1~66
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f025649799f4ed8ec2c418c7d68417092291af3d;p=elisp%2Fflim.git

* net-trans.el (transaction-error): New generic function.
---

diff --git a/net-trans.el b/net-trans.el
index de55881..57b3203 100644
--- a/net-trans.el
+++ b/net-trans.el
@@ -40,9 +40,15 @@
 (luna-define-generic transaction-error-name (trans)
   "Return error symbol of the TRANSACTION.")
 
+(luna-define-generic transaction-error (trans error)
+  "Throw an ERROR of the TRANSACTION.")
+
 (luna-define-method transaction-error-name ((trans transaction))
   (intern (format "%s-error" (luna-class-name trans))))
 
+(luna-define-method transaction-error ((trans transaction) error)
+  (throw (transaction-error-name trans) error))
+
 (defvar transaction-combinator-alist
   '((&& transaction-compose-&&)
     (|| transaction-compose-||)))