From d61656e0ad234ed221f51c9492eb302a1b74bd2a Mon Sep 17 00:00:00 2001 From: cage Date: Sun, 19 Mar 2023 12:21:51 +0100 Subject: [PATCH] - [GUI] removed deadlock when rendering gemtext and the TOC. --- src/gui/client/main-window.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp index 3471378..557c6ce 100644 --- a/src/gui/client/main-window.lisp +++ b/src/gui/client/main-window.lisp @@ -118,10 +118,9 @@ (aborting-function (constantly nil))) (enqueue-request-notify-error :gemini-request 1 iri use-cache) (labels ((stream-exausted-p () - (let ((status-completed (cev:enqueue-request-and-wait-results :gemini-stream-completed-p - 1 - ev:+maximum-event-priority+ - iri))) + (let ((status-completed (comm:make-request :gemini-stream-completed-p + 1 + iri))) status-completed)) (loop-fetch (&optional (last-lines-fetched-count 0)) (ev:with-enqueued-process-and-unblock () @@ -146,7 +145,7 @@ (toc-width (parse-integer toc-widget-width)) (toc (cev:enqueue-request-and-wait-results :gemini-table-of-contents 1 - ev:+maximum-event-priority+ + ev:+standard-event-priority+ iri toc-width))) (misc:dbg "toc ~a" toc-width)