From f025649799f4ed8ec2c418c7d68417092291af3d Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Mon, 14 Aug 2000 16:17:07 +0000
Subject: [PATCH] * net-trans.el (transaction-error): New generic function.

---
 net-trans.el |    6 ++++++
 1 file changed, 6 insertions(+)

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-||)))
-- 
1.7.10.4