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

diff --git a/basis/deques/deques-docs.factor b/basis/deques/deques-docs.factor
index 3a3e9d11e771f7365b1a7dbcac4b41add85e757b..3f9e9eca6efc9205e54039988f8d29f5c29b121b 100644 (file)
--- a/basis/deques/deques-docs.factor
+++ b/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

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