@@ -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 extra/spider/unique-deque/unique-deque.factor 07a03cac9edc941559ec3a0c17f9fd4b48b108db Slava Pestov slava@slava-pestovs-macbook-pro.local http://github.com/slavapestov/factor/commit/afbc81d6a2ba42390e47e9be613041965eacac7b afbc81d6a2ba42390e47e9be613041965eacac7b 2009-11-08T23:59:22-08:00 2009-11-08T23:59:22-08:00 spider.unique-deque: fix for stricter stack effect checking 5fee303c30b68e20e7d90b0093fa5a772178d06c Slava Pestov slava@slava-pestovs-macbook-pro.local