Place log level initialization after args checking

_web_server/server/playground-server.scm

@@ -570,8 +570,6 @@
           (stor-base (string-trim (or (option-get opts "stor-base") "./")))
           (log-level (string->number (string-trim (or (option-get opts "log-level") "1")))))
 
-      (set! LOG-LEVEL log-level)
-
       (cond
        (err
         (display (format "Unknown option '~a'\n" err))
@@ -583,6 +581,7 @@
         (exit -1))
 
        (else
+        (set! LOG-LEVEL log-level)
         (logger LOG-INFO "Listen on '~a' port '~a'" addr port)
         (logger LOG-INFO "Server URL: '~a/~a'" host root)
         (logger LOG-INFO "Max code size: ~a" max-code-size)