From 281869e6f8d5b7ea6300c5b93acb324a6011585e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 14 Oct 2020 11:07:40 +0200 Subject: 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(-) (limited to 'gnu/system') 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 -- cgit v1.2.3