diff options
| -rw-r--r-- | lib/state.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/state.lisp b/lib/state.lisp index 7a9a427..5ca5a7b 100644 --- a/lib/state.lisp +++ b/lib/state.lisp @@ -170,10 +170,10 @@ sets the api's *host* variable. If BODY produces no errors, the " (*cache* (read-cache-file)) (*drafts* (read-drafts-file)) (api:*host* (config-host *config*))) - (assert api:*host* () "ol must be configured with a server host.") - (set-term-width) (handler-case (progn + (assert api:*host* () "ol must be configured with a server host.") + (set-term-width) ,@body ;; only if there is no error do we save the local state. (write-drafts-to-disk) |