Fix alist implementation
Missed the general object case (notably `f`) for root node.
This commit is contained in:
parent
7c61cdf984
commit
642aaf718c
1 changed files with 2 additions and 0 deletions
|
@ -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, ;
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue