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

(define avl-tree:test:equal
  (lambda (test-name test-result expected-result)
    (if (not (equal? test-result expected-result))
	(error test-name "failed test"))))

;; eof
