Flush stdout after log string printing
This commit is contained in:
parent
6a9959f98d
commit
b87a7e0c97
@ -108,7 +108,8 @@
|
|||||||
(begin
|
(begin
|
||||||
(display prefix)
|
(display prefix)
|
||||||
(display (apply format args))
|
(display (apply format args))
|
||||||
(newline))))))
|
(newline))))
|
||||||
|
(force-output (current-output-port))))
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
;;; Return directory list
|
;;; Return directory list
|
||||||
@ -587,6 +588,7 @@
|
|||||||
(logger LOG-INFO "Max code size: ~a" max-code-size)
|
(logger LOG-INFO "Max code size: ~a" max-code-size)
|
||||||
(logger LOG-INFO "Work base path: '~a'" work-base)
|
(logger LOG-INFO "Work base path: '~a'" work-base)
|
||||||
(logger LOG-INFO "Storage base path: '~a'" stor-base)
|
(logger LOG-INFO "Storage base path: '~a'" stor-base)
|
||||||
|
(logger LOG-INFO "Log level: '~a'" log-level)
|
||||||
|
|
||||||
(run-server
|
(run-server
|
||||||
(make-page-handler host root INDEX-FILE
|
(make-page-handler host root INDEX-FILE
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user