@@ -258,11 +258,11 @@ ((< delta 5000) 0.1) ((< delta 10000) 0.25) (else 1.25)))) (let ((res (api:retrieve-result-item id))) (if res - res + (api:queue-item-results res) (loop start))))) (define (api:queue-run-one) (let* ((item (api:get-queue-item))) ;; this removes it from the in-queue (if item