[ drop t ] pusher == [ ] accumulator

db4
Slava Pestov 2008-11-30 04:51:17 -06:00
parent a02b8521dd
commit 5299f104e9
1 changed files with 1 additions and 1 deletions

View File

@ -154,7 +154,7 @@ M: dlist clear-deque ( dlist -- )
[ obj>> ] prepose dlist-each-node ; inline
: dlist>seq ( dlist -- seq )
[ drop t ] pusher [ dlist-each ] dip ;
[ ] accumulator [ dlist-each ] dip ;
: 1dlist ( obj -- dlist ) <dlist> [ push-front ] keep ;