diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-10-14 11:07:40 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-10-14 15:22:55 +0200 |
| commit | 281869e6f8d5b7ea6300c5b93acb324a6011585e (patch) | |
| tree | 4fa47078a3a91af4aeffb92379066c1e057bdfbb /gnu | |
| parent | 57a7aa1ae3ef67c6e8becca766adfb4b4c8f59ac (diff) | |
| download | guix-281869e6f8d5b7ea6300c5b93acb324a6011585e.tar.gz | |
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.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/system/image.scm | 3 |
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 |