1 665c255d 2023-08-04 jrmu (define (tree->list-1 tree)
2 665c255d 2023-08-04 jrmu   (if (null? tree)
3 665c255d 2023-08-04 jrmu       '()
4 665c255d 2023-08-04 jrmu       (append (tree->list-1 (left-branch tree))
5 665c255d 2023-08-04 jrmu 	      (cons (entry tree)
6 665c255d 2023-08-04 jrmu 		    (tree->list-1 (right-branch tree))))))