ws-on-message: Move predicate checking tab reload exception to function

Give this check a name.

1 files changed, 1 insertions, 1 deletions

diff --git a/l/src/main.lisp b/l/src/main.lisp
index 9eaa8e3..61a48be 100644
--- a/l/src/main.lisp
+++ b/l/src/main.lisp
@@ -78,7 +78,7 @@
                     "sessionId")))
 
     ;; Failed to reload tab.
-    (when (jsown:keyp (json-obj-get response "result") "exceptionDetails")
+    (when (runtime-evaluate-exception-p response)
       ;; `reload-tab` adds an extra increment to the wait group. If the call
       ;; fails, we only receive one message instead of two, so the wait group
       ;; must be decremented to match.