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

Author: abaine Date: Sat Aug 4 10:06:51 2007 New Revision: 115

Modified: trunk/funds/src/trees/tree-remove.lisp Log: Superficial change.

Modified: trunk/funds/src/trees/tree-remove.lisp ============================================================================== --- trunk/funds/src/trees/tree-remove.lisp (original) +++ trunk/funds/src/trees/tree-remove.lisp Sat Aug 4 10:06:51 2007 @@ -50,4 +50,5 @@ (let* ((next (next-in-order tree))) (stitch-tree next :left (bt-left tree) - :right (tree-remove (bt-right tree) (bt-key next) :test test :order order)))) + :right (tree-remove (bt-right tree) (bt-key next) + :test test :order order))))