From 7f889e4bb3e029861ab762028d0668da6f73fc79 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 9 Nov 2009 01:59:22 -0600 Subject: [PATCH] spider.unique-deque: fix for stricter stack effect checking --- extra/spider/unique-deque/unique-deque.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/spider/unique-deque/unique-deque.factor b/extra/spider/unique-deque/unique-deque.factor index 9003b56b15..f660674b63 100644 --- a/extra/spider/unique-deque/unique-deque.factor +++ b/extra/spider/unique-deque/unique-deque.factor @@ -30,7 +30,7 @@ TUPLE: unique-deque assoc deque ; : peek-url ( unique-deque -- todo-url ) deque>> peek-front ; -:: slurp-deque-when ( deque quot1 quot2: ( value -- ) -- ) +:: slurp-deque-when ( deque quot1: ( value -- ) quot2: ( value -- ) -- ) deque deque-empty? [ deque pop-front dup quot1 call [ quot2 call t ] [ drop f ] if