file-systems: Have the emergency REPL output to /dev/console.
This fixes a bug whereby all emergency REPL output would go to /dev/klog and thus, each line would be prefixed by "[12324.432] shepherd[1]: ". * gnu/build/file-systems.scm (check-file-system): Wrap 'start-repl' call in 'with-output-to-file'.master
parent
6ea6e1476f
commit
5de5f81845
|
@ -541,7 +541,13 @@ were found."
|
||||||
;; Spawn a REPL only if someone would be able to interact with it.
|
;; Spawn a REPL only if someone would be able to interact with it.
|
||||||
(when (isatty? (current-input-port))
|
(when (isatty? (current-input-port))
|
||||||
(format (current-error-port) "Spawning Bourne-like REPL.~%")
|
(format (current-error-port) "Spawning Bourne-like REPL.~%")
|
||||||
(start-repl %bournish-language))))
|
|
||||||
|
;; 'current-output-port' is typically connected to /dev/klog (in
|
||||||
|
;; PID 1), but here we want to make sure we talk directly to the
|
||||||
|
;; user.
|
||||||
|
(with-output-to-file "/dev/console"
|
||||||
|
(lambda ()
|
||||||
|
(start-repl %bournish-language))))))
|
||||||
(format (current-error-port)
|
(format (current-error-port)
|
||||||
"No file system check procedure for ~a; skipping~%"
|
"No file system check procedure for ~a; skipping~%"
|
||||||
device)))
|
device)))
|
||||||
|
|
Reference in New Issue