linux-boot: Don't catch exceptions thrown by 'mount-root-file-system'.
* gnu/build/linux-boot.scm (mount-root-file-system): Remove 'catch #t' around body. This was unneeded and even inconvenient because this procedure is called from within 'call-with-error-handling' already.
This commit is contained in:
parent
a1ca1b7a50
commit
4dfbdcbcb4
|
@ -255,8 +255,6 @@ UNIONFS."
|
|||
(newline port)
|
||||
(close-port port)))
|
||||
|
||||
(catch #t
|
||||
(lambda ()
|
||||
(if volatile-root?
|
||||
(begin
|
||||
(mkdir-p "/real-root")
|
||||
|
@ -283,11 +281,7 @@ UNIONFS."
|
|||
(mark-as-not-killable (pidof unionfs)))
|
||||
(begin
|
||||
(check-file-system root type)
|
||||
(mount root "/root" type))))
|
||||
(lambda args
|
||||
(format (current-error-port) "exception while mounting '~a': ~s~%"
|
||||
root args)
|
||||
(start-repl)))
|
||||
(mount root "/root" type)))
|
||||
|
||||
(copy-file "/proc/mounts" "/root/etc/mtab"))
|
||||
|
||||
|
|
Loading…
Reference in New Issue