From 642aaf718cb1e3c472abf2fba66213ce187a3c5b Mon Sep 17 00:00:00 2001
From: Michael Raitza <git@spacefrogg.net>
Date: Mon, 24 Feb 2020 16:26:43 +0100
Subject: [PATCH] Fix alist implementation

 Missed the general object case (notably `f`) for root node.
---
 trees/cb/cb.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/trees/cb/cb.factor b/trees/cb/cb.factor
index bde3e36..fda8fc3 100644
--- a/trees/cb/cb.factor
+++ b/trees/cb/cb.factor
@@ -240,6 +240,8 @@ M: cb new-assoc
 
 GENERIC: (cb-node>alist) ( node -- )
 
+M: object (cb-node>alist) drop ;
+
 M: node (cb-node>alist)
     entry, ;