Commit f82cc8f9 authored by Bernd Paysan's avatar Bernd Paysan

Try without auto-removal

parent 54dc34f8
......@@ -202,8 +202,8 @@ dht-class ' new static-a with-allocater constant dummy-dht
ELSE 2drop THEN ;] dht-sema c-section ;
: d#cleanup ( o:dht -- )
k#size cell DO
dht-hash I + $@ bounds U+DO
dht-hash k#size + dht-hash cell+ U+DO
I $@ bounds U+DO
I @ IF I $@ check-date IF I $free THEN 2drop THEN
cell +LOOP 0 I del$cell
cell +LOOP ;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment