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

View File

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