deques: enhance slurp-deque stack effect.

2014-12-11 15:57:48 -08:00 · 2014-12-11 15:57:48 -08:00 · d52f55f508
parent 7e35c28bc6
commit d52f55f508
1 changed files with 1 additions and 1 deletions
--- a/basis/deques/deques.factor
+++ b/basis/deques/deques.factor
@ -47,7 +47,7 @@ ERROR: empty-deque ;
 : pop-back ( deque -- obj )
    [ peek-back ] [ pop-back* ] bi ; inline

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