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

    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 ;

: 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 sequences ;
IN: dlists

TUPLE: dlist front back length ;
