1 (define (tree->list-1 tree)
2   (if (null? tree)
3       '()
4       (append (tree->list-1 (left-branch tree))
5 	      (cons (entry tree)
6 		    (tree->list-1 (right-branch tree))))))