deques: enhance slurp-deque stack effect.

diff --git a/basis/deques/deques.factor b/basis/deques/deques.factor
index f5be97f894fc5218e3b9d8163773c2535a049c5e..bcc6a76de5d7297791ee61f14b038474b374248f 100644 (file)
--- 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