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

deques: enhance slurp-deque stack effect.

db4
John Benediktsson 2014-12-11 15:57:48 -08:00
parent 7e35c28bc6
commit d52f55f508
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/deques/deques.factor
View File

@ -47,7 +47,7 @@ ERROR: empty-deque ;
: pop-back ( deque -- obj ) : pop-back ( deque -- obj )
[ peek-back ] [ pop-back* ] bi ; inline [ peek-back ] [ pop-back* ] bi ; inline
: slurp-deque ( deque quot: ( obj -- ) -- ) : slurp-deque ( ... deque quot: ( ... obj -- ... ) -- ... )
[ drop '[ _ deque-empty? ] ] [ drop '[ _ deque-empty? ] ]
[ '[ _ pop-back @ ] ] [ '[ _ pop-back @ ] ]
2bi until ; inline 2bi until ; inline