deques: adding stack effect to quot in slurp-deque.

basis/deques/deques-docs.factor

@@ -124,7 +124,7 @@ HELP: node-value
 
 HELP: slurp-deque
 { $values
-     { "deque" deque } { "quot" quotation } }
+     { "deque" deque } { "quot" { $quotation ( obj -- ) } } }
 { $description "Pops off the back element of the deque and calls the quotation in a loop until the deque is empty." }
 { $examples
   { $example

basis/deques/deques.factor

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