From 9f56eb6981c9dc48ee8c26018ca025d0f41cab7e Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 13 Jul 2012 15:15:14 -0700 Subject: [PATCH] dlists: rename "seq>dlist" to ">dlist". --- basis/dlists/dlists.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/dlists/dlists.factor b/basis/dlists/dlists.factor index be968b0dab..c5504fa0ca 100644 --- a/basis/dlists/dlists.factor +++ b/basis/dlists/dlists.factor @@ -190,7 +190,7 @@ M: dlist clear-deque ( dlist -- ) : dlist>seq ( dlist -- seq ) [ ] collector [ dlist-each ] dip ; -: seq>dlist ( seq -- dlist ) +: >dlist ( seq -- dlist ) [ '[ _ push-back ] each ] keep ; : 1dlist ( obj -- 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