refactoring client functions

1 files changed, 6 insertions, 5 deletions

diff --git a/lib/state.lisp b/lib/state.lisp
index 5bab3ed..0c01d4d 100644
--- a/lib/state.lisp
+++ b/lib/state.lisp
@@ -92,13 +92,14 @@ CACHED-ONELINERS-FILE. NIL if there is no such file."
 sets the api's *host* variable. If BODY produces no errors, the "
   `(let* ((*config* (read-config-file))
           (*cache* (read-cache-file))
-          (api::*host* (config-host *config*)))
-     (assert *host* () "ol must be configured with a server host.")
+          (api:*host* (config-host *config*)))
+     (assert api:*host* () "ol must be configured with a server host.")
+     (set-term-width)
      (handler-case
          (progn
            ,@body
            ;; only if there is no error do we save the local state.
            (write-cache-to-disk) 
-           (write-config-to-disk)))
-     (error (e)
-            (format *error-output* "~a~%" e))))
+           (write-config-to-disk))
+       (error (e)
+         (format *error-output* "~a~%" e)))))