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

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

(require 'avl-tree:nil)
(require 'avl-tree::make)

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

;;+doc
;; procedure: avl-tree:make-leaf
;; arguments: element
;; signature: forall a,b,c => c -> avl-tree[a,b,c]
;;
;; Creates a leaf element.
;;-doc

(define avl-tree:make-leaf
  (lambda (e)
    (avl-tree::make avl-tree:nil e 1 avl-tree:nil)))

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

;; eof
