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

[abaine at common-lisp.net]

Author: abaine
Date: Thu Aug  2 11:41:43 2007
New Revision: 106

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

Modified: trunk/funds/src/trees/tree-remove.lisp
==============================================================================
--- trunk/funds/src/trees/tree-remove.lisp	(original)
+++ trunk/funds/src/trees/tree-remove.lisp	Thu Aug  2 11:41:43 2007
@@ -47,8 +47,8 @@
     (if (tree-empty-p temp)
 	(make-avl-tree)
 	(let* ((heavy-side (if (heavier-p temp :side :left)
-			      :left
-			      :right))
+			       :left
+			       :right))
 	       (inside (tree-child temp :side (other-side heavy-side)))
 	       (outside (tree-child temp :side heavy-side)))
 	  (balance inside temp outside :heavy-side heavy-side)))))