Fix alist implementation

Missed the general object case (notably `f`) for root node.
This commit is contained in:
Michael Raitza 2020-02-24 16:26:43 +01:00
parent 7c61cdf984
commit 642aaf718c

View file

@ -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, ;