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:
Ludovic Courtès 2014-11-20 22:43:47 +01:00
parent a1ca1b7a50
commit 4dfbdcbcb4

View File

@ -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"))