     inc-length ;
 
 : push-back ( obj dlist -- )
-    [ dlist-back f <dlist-node> ] keep
-    [ dlist-back set-next-when ] 2keep
-    [ set-dlist-back ] keep
-    [ set-front-to-back ] keep
-    inc-length ;
+    push-back* drop ;
+
+: push-all-back ( seq dlist -- )
+    [ push-back ] curry each ;
 
 : peek-front ( dlist -- obj )
     dlist-front dlist-node-obj ;

! Copyright (C) 2007 Mackenzie Straight, Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: combinators kernel math ;
IN: dlists

TUPLE: dlist front back length ;

    over dlist-empty?
    [ 2drop ] [ [ >r pop-back r> call ] 2keep dlist-slurp ] if ;
    inline

: 1dlist ( obj -- dlist ) <dlist> [ push-front ] keep ;

