Changeset 537

Timestamp:

02/06/09 10:56:02 (3 years ago)

Author:

mooneer

Message:

Fixed op[]= bug in System.collections.binary_tree.

File:

• interpreter/trunk/modules/System/collections.kt (modified) (2 diffs)

interpreter/trunk/modules/System/collections.kt

@@ -143 +143 @@
             ],
             (k < this.key and this.left is System.null) [
-                null;
+                (make System.collections._TreeNode(k, null, this));
             ],
             (k > this.key and this.right is System.null) [
-                null;
+                (make System.collections._TreeNode(k, null, this));
             ],
             (k < this.key) [ this.left|get(k); ],
@@ -214 +214 @@
     [
         decide [
-            (this.root_node is System.null) [ null; ],
+            (this.root_node is System.null) [ 
+                this.root_node = make System.collections._TreeNode(key, null, null);
+                this.root_node.item;
+            ],
             (true) [ this.root_node|get(key); ]
         ];