From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 5 Nov 2016 00:42:27 +0000 (+0000)
Subject: Fix embarrassing typo in wttree overweight condition.
X-Git-Tag: mit-scheme-pucked-9.2.12~254^2~9
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=52937962c147124a68a089fe4a9a178fbbab43c7;p=mit-scheme.git

Fix embarrassing typo in wttree overweight condition.

Evidently we don't have adequate automatic tests for this!
---

diff --git a/src/runtime/wttree.scm b/src/runtime/wttree.scm
index e2db7e2e5..c05fa866b 100644
--- a/src/runtime/wttree.scm
+++ b/src/runtime/wttree.scm
@@ -128,7 +128,7 @@ we adopt here, described in
   (and (fix:< a b) (fix:< (fix:lsh (fix:and a b) 1) b)))
 
 (define-integrable (overweight? a b)
-  (log2< a (fix:lsh b -11)))
+  (log2< a (fix:lsh b -1)))
 
 (define-integrable (single? a b)
   (not (log2< b a)))