 : spider-page? ( spider -- ? )
     {
         [ todo>> deque>> deque-empty? not ]
-        [ [ todo>> peek-url depth>> ] [ max-depth>> ] bi < ]
+        [ [ todo>> peek-url depth>> ] [ max-depth>> ] bi <= ]
         [ [ count>> ] [ max-count>> ] bi < ]
     } 1&& ;
 

        now >>fetched-at drop ;

:: spider-page ( spider spider-result -- )
    spider quiet>> [ spider-result print-spidering ] unless
    spider spider-result fill-spidered-result
    spider quiet>> [ spider-result describe ] unless
    spider spider-result add-spidered ;

\ spider-page ERROR add-error-logging

        over >>currently-spidering
        swap 0 <unique-deque> [ push-url ] keep >>todo
        <unique-deque> >>nonmatching
        H{ } clone >>spidered
        1 <semaphore> >>semaphore ;

: <spider-result> ( url depth -- spider-result )
    spider-result new
