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

deques: use fry to simplify.

db4
John Benediktsson 2015-06-04 23:15:51 -07:00
parent 40b7805e0a
commit c74ccdd33e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/deques/deques.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2008, 2010 Slava Pestov. ! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences math fry ; USING: fry kernel sequences ;
IN: deques IN: deques
GENERIC: push-front* ( obj deque -- node ) GENERIC: push-front* ( obj deque -- node )
@ -33,13 +33,13 @@ ERROR: empty-deque ;
push-front* drop ; inline push-front* drop ; inline
: push-all-front ( seq deque -- ) : push-all-front ( seq deque -- )
[ push-front ] curry each ; '[ _ push-front ] each ;
: push-back ( obj deque -- ) : push-back ( obj deque -- )
push-back* drop ; inline push-back* drop ; inline
: push-all-back ( seq deque -- ) : push-all-back ( seq deque -- )
[ push-back ] curry each ; '[ _ push-back ] each ;
: pop-front ( deque -- obj ) : pop-front ( deque -- obj )
[ peek-front ] [ pop-front* ] bi ; inline [ peek-front ] [ pop-front* ] bi ; inline