steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[ 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/dlists/dlists.factor
View File

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