Fix `repeat'
Fri Aug 18 23:19:47 PDT 2006 Hoan Ton-That <hoan@ton-that.org>
* Fix `repeat'
diff -rN -u old-public_html/examples/utils.lisp new-public_html/examples/utils.lisp
--- old-public_html/examples/utils.lisp 2014-04-17 15:45:25.000000000 -0700
+++ new-public_html/examples/utils.lisp 2014-04-17 15:45:25.000000000 -0700
@@ -12,7 +12,7 @@
nil))
(deftransaction repeat ((tx transaction) n)
- (if (zerop n)
+ (if (= n 1)
tx
(progn tx (repeat tx (- n 1)))))