dlist>seq was defined in dlists and linked-assocs
parent
09a431f0b3
commit
1a50bcce75
|
@ -28,9 +28,6 @@ M: linked-assoc set-at
|
||||||
[ 2dup assoc>> key? [ 2dup delete-at ] when add-to-dlist ] 2keep
|
[ 2dup assoc>> key? [ 2dup delete-at ] when add-to-dlist ] 2keep
|
||||||
assoc>> set-at ;
|
assoc>> set-at ;
|
||||||
|
|
||||||
: dlist>seq ( dlist -- seq )
|
|
||||||
[ ] pusher [ dlist-each ] dip ;
|
|
||||||
|
|
||||||
M: linked-assoc >alist
|
M: linked-assoc >alist
|
||||||
dlist>> dlist>seq ;
|
dlist>> dlist>seq ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue