Permalink
Browse files

Removed incorrect function from tree

  • Loading branch information...
1 parent 7426ddb commit 763f438f051ee40e07678b76b95437947d2f3327 @pereckerdal committed May 3, 2010
Showing with 0 additions and 13 deletions.
  1. +0 −13 ds/tree.scm
View
13 ds/tree.scm
@@ -471,19 +471,6 @@
left))
base)))
-(define (tree-map fn tree)
- (check-tree tree)
-
- (let loop ((tree tree))
- (and tree
- (let ((elm (%%tree-element tree))
- (left (%%tree-left-subtree tree))
- (right (%%tree-right-subtree tree)))
- (make-tree/internal (fn elm)
- (%%tree-count tree)
- (loop left)
- (loop right))))))
-
(define (tree-members tree)
(tree-fold cons '() tree))

0 comments on commit 763f438

Please sign in to comment.