From 120051e1b9358f75b228e97670843095d5fcdf49 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 25 Feb 2021 10:01:56 +0100 Subject: machine: ssh: Use 'formatted-message'. * gnu/machine/ssh.scm (machine-check-initrd-modules): Use 'formatted-message' instead of 'format' + '&message'. --- gnu/machine/ssh.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/gnu/machine/ssh.scm b/gnu/machine/ssh.scm index 997d673e75..fa942169c4 100644 --- a/gnu/machine/ssh.scm +++ b/gnu/machine/ssh.scm @@ -270,11 +270,9 @@ not available in the initrd." (remote-let ((missing remote-exp)) (unless (null? missing) - (raise (condition - (&message - (message (format #f (G_ "missing modules for ~a:~{ ~a~}~%") + (raise (formatted-message (G_ "missing modules for ~a:~{ ~a~}~%") (file-system-device fs) - missing)))))))) + missing))))) (map missing-modules file-systems)) -- cgit 1.4.1