Docs and Tests fixups

trees/cb/cb-docs.factor

@@ -18,6 +18,8 @@ $nl
 "Crit-bit trees conform to the assoc protocol."
 ;
 
+ABOUT: "trees.cb"
+
 HELP: CB{
 { $syntax "CB{ { key value }... }" }
 { $values { "key" "a key" } { "value" "a value" } }

trees/cb/cb-tests.factor

@@ -53,14 +53,14 @@ IN: trees.cb.tests
 
 ! Collision
 {
-    CB{ { B{ 110 } B{ 110 } } }
+    CB{ { B{ 110 } f } }
 } [
     CB{ { f f } }
-    B{ 110 } dup rot [ set-at ] keep
+    f B{ 110 } rot [ set-at ] keep
 ] unit-test
 
 ! Colliding trees are still not equal
 { f } [
     CB{ { f f } }
-    CB{ { B{ 110 } B{ 110 } } } =
+    CB{ { B{ 110 } f } } =
 ] unit-test

trees/cb/summary.txt

@@ -1,2 +1 @@
-Critical bit trees as described in http://cr.yp.to/critbit.html.
+Critical bit trees as described in http://cr.yp.to/critbit.html
-They are implemented as subclasses of trees.