06/09: image: Use 'raise' from (srfi srfi-34).

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 281869e6f8d5b7ea6300c5b93acb324a6011585e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Oct 14 11:07:40 2020 +0200

    image: Use 'raise' from (srfi srfi-34).
    
    * gnu/system/image.scm: Use (srfi srfi-34) for 'raise'.
    (lookup-image-type-by-name): Remove extra newline in 'formatted-message'
    string.
---
 gnu/system/image.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 1b5ceb3..bc6610b 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -53,6 +53,7 @@
   #:use-module ((srfi srfi-1) #:prefix srfi-1:)
   #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-26)
+  #:use-module (srfi srfi-34)
   #:use-module (srfi srfi-35)
   #:use-module (rnrs bytevectors)
   #:use-module (ice-9 format)
@@ -656,6 +657,6 @@ image, depending on IMAGE format."
                      (eq? name (image-type-name image-type)))
                    (force %image-types))
       (raise
-       (formatted-message (G_ "~a: no such image type~%") name))))
+       (formatted-message (G_ "~a: no such image type") name))))
 
 ;;; image.scm ends here