Flush stdout after log string printing

_web_server/server/playground-server.scm

@@ -108,7 +108,8 @@
           (begin
             (display prefix)
             (display (apply format args))
-            (newline))))))
+            (newline))))
+    (force-output (current-output-port))))
 
 ;;;
 ;;; Return directory list
@@ -587,6 +588,7 @@
         (logger LOG-INFO "Max code size: ~a" max-code-size)
         (logger LOG-INFO "Work base path: '~a'" work-base)
         (logger LOG-INFO "Storage base path: '~a'" stor-base)
+        (logger LOG-INFO "Log level: '~a'" log-level)
 
         (run-server
          (make-page-handler host root INDEX-FILE