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

dlists: rename "seq>dlist" to ">dlist".

db4
John Benediktsson 2012-07-13 15:15:14 -07:00
parent a57fff9424
commit 9f56eb6981
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/dlists/dlists.factor
View File

@ -190,7 +190,7 @@ M: dlist clear-deque ( dlist -- )
: dlist>seq ( dlist -- seq ) : dlist>seq ( dlist -- seq )
[ ] collector [ dlist-each ] dip ; [ ] collector [ dlist-each ] dip ;
: seq>dlist ( seq -- dlist ) : >dlist ( seq -- dlist )
<dlist> [ '[ _ push-back ] each ] keep ; <dlist> [ '[ _ push-back ] each ] keep ;
: 1dlist ( obj -- dlist ) <dlist> [ push-front ] keep ; : 1dlist ( obj -- dlist ) <dlist> [ push-front ] keep ;
@ -204,6 +204,6 @@ M: dlist clone
INSTANCE: dlist deque INSTANCE: dlist deque
SYNTAX: DL{ \ } [ seq>dlist ] parse-literal ; SYNTAX: DL{ \ } [ >dlist ] parse-literal ;
{ "dlists" "prettyprint" } "dlists.prettyprint" require-when { "dlists" "prettyprint" } "dlists.prettyprint" require-when