diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-08-27 02:49:40 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-08-27 02:49:40 +0000 |
| commit | 8fa134424913ad16f2b95f1d1cb2992d3fd17059 (patch) | |
| tree | ab65276cfe2595f0e9503f3008232d7e1a84d247 /lisp/emacs-lisp/avl-tree.el | |
| parent | 5fa11cc28db07e1ac0c06ad10fc45ed7caddb315 (diff) | |
| download | emacs-8fa134424913ad16f2b95f1d1cb2992d3fd17059.tar.gz | |
(avl-tree-del-balance1, avl-tree-del-balance2)
(avl-tree-do-del-internal, avl-tree-do-delete)
(avl-tree-enter-balance1, avl-tree-enter-balance2): Use plain `let'.
Diffstat (limited to 'lisp/emacs-lisp/avl-tree.el')
| -rw-r--r-- | lisp/emacs-lisp/avl-tree.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/emacs-lisp/avl-tree.el b/lisp/emacs-lisp/avl-tree.el index 7dd4d18da7c..074f8e7c772 100644 --- a/lisp/emacs-lisp/avl-tree.el +++ b/lisp/emacs-lisp/avl-tree.el @@ -129,8 +129,8 @@ (defun avl-tree-del-balance1 (node branch) ;; Rebalance a tree and return t if the height of the tree has shrunk. - (let* ((br (avl-tree-node-branch node branch)) - p1 b1 p2 b2 result) + (let ((br (avl-tree-node-branch node branch)) + p1 b1 p2 b2 result) (cond ((< (avl-tree-node-balance br) 0) (avl-tree-node-set-balance br 0) @@ -178,8 +178,8 @@ t))))) (defun avl-tree-del-balance2 (node branch) - (let* ((br (avl-tree-node-branch node branch)) - p1 b1 p2 b2 result) + (let ((br (avl-tree-node-branch node branch)) + p1 b1 p2 b2 result) (cond ((> (avl-tree-node-balance br) 0) (avl-tree-node-set-balance br 0) @@ -227,7 +227,7 @@ t))))) (defun avl-tree-do-del-internal (node branch q) - (let* ((br (avl-tree-node-branch node branch))) + (let ((br (avl-tree-node-branch node branch))) (if (avl-tree-node-right br) (if (avl-tree-do-del-internal br +1 q) (avl-tree-del-balance2 node branch)) @@ -238,7 +238,7 @@ (defun avl-tree-do-delete (cmpfun root branch data) ;; Return t if the height of the tree has shrunk. - (let* ((br (avl-tree-node-branch root branch))) + (let ((br (avl-tree-node-branch root branch))) (cond ((null br) nil) @@ -271,8 +271,8 @@ (defun avl-tree-enter-balance1 (node branch) ;; Rebalance a tree and return t if the height of the tree has grown. - (let* ((br (avl-tree-node-branch node branch)) - p1 p2 b2 result) + (let ((br (avl-tree-node-branch node branch)) + p1 p2 b2 result) (cond ((< (avl-tree-node-balance br) 0) (avl-tree-node-set-balance br 0) @@ -312,8 +312,8 @@ (defun avl-tree-enter-balance2 (node branch) ;; Return t if the tree has grown. - (let* ((br (avl-tree-node-branch node branch)) - p1 p2 b2) + (let ((br (avl-tree-node-branch node branch)) + p1 p2 b2) (cond ((> (avl-tree-node-balance br) 0) (avl-tree-node-set-balance br 0) |