From e3f4600c8591738efa543aad9021aa526fe341e0 Mon Sep 17 00:00:00 2001
From: Michael Raitza <git@spacefrogg.net>
Date: Mon, 24 Feb 2020 15:44:26 +0100
Subject: [PATCH] Use `left` and `right` constants from trees vocabulary

---
 trees/cb/cb.factor | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/trees/cb/cb.factor b/trees/cb/cb.factor
index bd66795..69d306f 100644
--- a/trees/cb/cb.factor
+++ b/trees/cb/cb.factor
@@ -35,10 +35,8 @@ TUPLE: cb-node { byte# integer } { bits integer } left right ;
 : <cb-node> ( byte# bits -- node )
     cb-node new-node ;
 
-! -1 = left
-! 1 = right
 : key-side ( bits byte -- side )
-    bitor 1 + -8 shift 0 = -1 1 ? ;
+    bitor 1 + -8 shift 0 = left right ? ;
 
 ! Produce a byte with all bits set except the msb from bits*.
 ! See MAGIC Algorithms for rationale.