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