[ drop t ] pusher == [ ] accumulator
parent
a02b8521dd
commit
5299f104e9
|
@ -154,7 +154,7 @@ M: dlist clear-deque ( dlist -- )
|
||||||
[ obj>> ] prepose dlist-each-node ; inline
|
[ obj>> ] prepose dlist-each-node ; inline
|
||||||
|
|
||||||
: dlist>seq ( dlist -- seq )
|
: dlist>seq ( dlist -- seq )
|
||||||
[ drop t ] pusher [ dlist-each ] dip ;
|
[ ] accumulator [ dlist-each ] dip ;
|
||||||
|
|
||||||
: 1dlist ( obj -- dlist ) <dlist> [ push-front ] keep ;
|
: 1dlist ( obj -- dlist ) <dlist> [ push-front ] keep ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue