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

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