summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-10-14 11:07:40 +0200
committerLudovic Courtès <ludo@gnu.org>2020-10-14 15:22:55 +0200
commit281869e6f8d5b7ea6300c5b93acb324a6011585e (patch)
tree4fa47078a3a91af4aeffb92379066c1e057bdfbb
parent57a7aa1ae3ef67c6e8becca766adfb4b4c8f59ac (diff)
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.
-rw-r--r--gnu/system/image.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 1b5ceb3553..bc6610b14c 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