diff --git a/basis/deques/deques.factor b/basis/deques/deques.factor index f5be97f894..bcc6a76de5 100644 --- 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