diff options
| -rw-r--r-- | l/src/main.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/l/src/main.lisp b/l/src/main.lisp index 81f05d6..f6b7d07 100644 --- a/l/src/main.lisp +++ b/l/src/main.lisp @@ -78,6 +78,11 @@ ;; Failed to reload tab. (when (jsown:keyp (json-obj-get response "result") "exceptionDetails") + ;; `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. + (wait-group:done *wg*) + (reload-tab (json-obj-get response "sessionId"))) (wait-group:done *wg*))) |