futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

linux-boot: Don't catch exceptions thrown by 'mount-root-file-system'.

Browse Source 
* 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
1 changed files with 24 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/build/linux-boot.scm
View File

@ -255,8 +255,6 @@ UNIONFS."
(newline port) (newline port)
(close-port port))) (close-port port)))
(catch #t
(lambda ()
(if volatile-root? (if volatile-root?
(begin (begin
(mkdir-p "/real-root") (mkdir-p "/real-root")
@ -283,11 +281,7 @@ UNIONFS."
(mark-as-not-killable (pidof unionfs))) (mark-as-not-killable (pidof unionfs)))
(begin (begin
(check-file-system root type) (check-file-system root type)
(mount root "/root" type)))) (mount root "/root" type)))
(lambda args
(format (current-error-port) "exception while mounting '~a': ~s~%"
root args)
(start-repl)))
(copy-file "/proc/mounts" "/root/etc/mtab")) (copy-file "/proc/mounts" "/root/etc/mtab"))