Make `deftransaction' define recursive transaction functions correctly
Fri Aug 18 23:17:04 PDT 2006 Hoan Ton-That <hoan@ton-that.org>
* Make `deftransaction' define recursive transaction functions correctly
diff -rN -u old-public_html/src/interface.lisp new-public_html-1/src/interface.lisp
--- old-public_html/src/interface.lisp 2014-07-22 16:37:43.000000000 -0700
+++ new-public_html-1/src/interface.lisp 2014-07-22 16:37:43.000000000 -0700
@@ -58,7 +58,8 @@
(pushnew '(,name ,@(extract-funargs args)) *trans-funs*))
(defmethod ,name ,args
,(with-trans-vars (extract-vars args)
- (stm `(progn ,@body))))
+ (with-trans-funs (list `(,name ,@(extract-funargs args)))
+ (stm `(progn ,@body)))))
',name)))
;; Copyright (c) 2006 Hoan Ton-That