From 52937962c147124a68a089fe4a9a178fbbab43c7 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 5 Nov 2016 00:42:27 +0000 Subject: [PATCH] Fix embarrassing typo in wttree overweight condition. Evidently we don't have adequate automatic tests for this! --- src/runtime/wttree.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.25.1