From 1a1de0bb8c18798064d103b70a1c06d20eb3ad05 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 14 Mar 2022 08:48:50 -0500 Subject: moved host assertion inside handler-case --- lib/state.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib') 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) -- cgit v1.2.3