[funds-cvs] r129 - trunk/funds/src/trees

[abaine at common-lisp.net]

Author: abaine
Date: Fri Aug 10 18:14:53 2007
New Revision: 129

Modified:
   trunk/funds/src/trees/tree-find.lisp
Log:
Corrected problem with tree-find algorithm.

Modified: trunk/funds/src/trees/tree-find.lisp
==============================================================================
--- trunk/funds/src/trees/tree-find.lisp	(original)
+++ trunk/funds/src/trees/tree-find.lisp	Fri Aug 10 18:14:53 2007
@@ -39,4 +39,4 @@
   (cond ((funcall test key (bt-key tree)) (values (bt-value tree) t))
 	((funcall order key (bt-key tree)) (tree-find (bt-left tree) key 
 						      :test test :order order))
-	(t (tree-find (bt-left tree) key :test test :order order))))
+	(t (tree-find (bt-right tree) key :test test :order order))))