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

[abaine at common-lisp.net]

Author: abaine
Date: Thu Aug  2 12:14:58 2007
New Revision: 108

Modified:
   trunk/funds/src/trees/tree-insert.lisp
Log:
Corrected make-avl-tree to stitch-avl-tree.

Modified: trunk/funds/src/trees/tree-insert.lisp
==============================================================================
--- trunk/funds/src/trees/tree-insert.lisp	(original)
+++ trunk/funds/src/trees/tree-insert.lisp	Thu Aug  2 12:14:58 2007
@@ -55,10 +55,10 @@
 (defmethod tree-insert ((tree avl-tree) key value
 			&key (test #'eql) (order #'<))
   (if (funcall test key (bt-key tree))
-      (make-avl-tree :key key
-		     :value value
-		     :left (bt-left tree)
-		     :right (bt-right tree))
+      (stitch-avl-tree :key key
+		       :value value
+		       :left (bt-left tree)
+		       :right (bt-right tree))
       (let* ((temp (call-next-method))
 	     (side (side-to-insert tree key :order order))
 	     (outside (tree-child temp :side side))