Fix alist implementation

Missed the general object case (notably `f`) for root node.
2020-02-24 16:26:43 +01:00 · 2020-02-24 16:26:43 +01:00 · 642aaf718c
parent 7c61cdf984
commit 642aaf718c
1 changed files with 2 additions and 0 deletions
--- 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, ;