Remove peek

This commit is contained in:
Christopher Baines 2023-11-05 18:49:04 +00:00
parent b2707b4828
commit b026b8795b

View file

@ -385,7 +385,6 @@ WHERE job_id = $1")
priority-max-processes
max-processes))
(let ((pid (process-job job-id)))
(peek "PID" pid)
(hashv-set! processes pid
(list (current-time) (list job-id))))))))
jobs)))