(balance_intervals_internal): Recurse directly.

diff --git a/src/intervals.c b/src/intervals.c
index 1ad7c28fbce0c4b9a71ced9ced571a822de2b95f..c399d40d10f1d516c8cdcf3e877c0d5f46a95509 100644 (file)
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -431,9 +431,9 @@ balance_intervals_internal (tree)
 {
   /* Balance within each side.  */
   if (tree->left)
-    balance_intervals (tree->left);
+    balance_intervals_internal (tree->left);
   if (tree->right)
-    balance_intervals (tree->right);
+    balance_intervals_internal (tree->right);
   return balance_an_interval (tree);
 }