;; -*- Scheme -*-
;;
;; $Id: avl-tree08.scm,v 1.1 1998/03/16 07:57:19 foner Exp $

;;------------

(require 'avl-tree:from-list)

;;------------

;;+doc
;; procedure: list->avl-tree
;; arguments: list unwrap-key <?
;; signature: forall a,b,c => [c] x (c -> a) x (a x a -> bool)
;;                         -> avl-tree[a,b,c]
;;
;; Convert LIST into a tree.  If LIST contains duplicate elements then
;; the the later one is kept.
;;-doc

(define list->avl-tree
  (lambda (l uk <?)
    (avl-tree:from-list l uk <? (lambda (o n) n))))

;; eof
