mirror of https://codeberg.org/cage/tinmop/
- removed another recursive thread locking ('push-downloading-behind').
This commit is contained in:
parent
c613cefa13
commit
7d9f3beffa
|
@ -197,9 +197,11 @@
|
|||
(wrapped-in-lock (*events-queue*)
|
||||
(remove-element-if *events-queue* predicate)))
|
||||
|
||||
(defun map-events (fn)
|
||||
(wrapped-in-lock (*events-queue*)
|
||||
(map-elements *events-queue* fn)))
|
||||
(defun map-events (fn &key (lock-queue t))
|
||||
(if lock-queue
|
||||
(wrapped-in-lock (*events-queue*)
|
||||
(map-elements *events-queue* fn))
|
||||
(map-elements *events-queue* fn)))
|
||||
|
||||
;;;; generic events
|
||||
|
||||
|
@ -1497,12 +1499,13 @@
|
|||
|
||||
(defclass gemini-push-behind-downloading-event (program-event) ())
|
||||
|
||||
(defun push-downloading-behind ()
|
||||
(defun push-downloading-behind (&key (lock-queue nil))
|
||||
(map-events (lambda (a)
|
||||
(when (typep a 'gemini-got-line-event)
|
||||
(setf (skip-rendering a) t)
|
||||
(setf (priority a) +minimum-event-priority+))
|
||||
a)))
|
||||
a)
|
||||
:lock-queue lock-queue))
|
||||
|
||||
(defmethod process-event ((object gemini-push-behind-downloading-event))
|
||||
(push-downloading-behind))
|
||||
|
|
Loading…
Reference in New Issue