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

[abaine at common-lisp.net]

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