xanadu - btree

scsh/xanadu/b-tree.scm

@@ -31,10 +31,7 @@
 ;; copy vector nodes into n-ary vectors (from median splitted vecs)
 
 (define (make-b-tree-node l r)
-  (let ((numitems 0)
+  (let ((data #f)
-        (numnodes 0)
-        (root 'foo)
-        (data #f)
         (left l)
         (right r))
 
@@ -60,24 +57,9 @@
     (define (get-right)
       right)
 
-    (define (get-root)
-      root)
-
-    (define (get-numitems)
-      numitems)
-
-    (define (get-numnodes)
-      numnodes)
-
     (define (dispatch msg)
       (lambda (msg)
-        (cond ((eq? msg 'get-root)
+        (cond ((eq? msg 'get-left)
-               get-root)
-              ((eq? msg 'get-numitems)
-               get-numitems)
-              ((eq? msg 'get-numnodes)
-               get-numnodes)
-              ((eq? msg 'get-left)
                get-left)
               ((eq? msg 'set-left-with-index!)
                set-left-with-index!)