ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* gnu/system/image.scm: Use (srfi srfi-34) for 'raise'.
(lookup-image-type-by-name): Remove extra newline in 'formatted-message'
string.
This commit is contained in:
Ludovic Courtès 2020-10-14 11:07:40 +02:00
parent 57a7aa1ae3
commit 281869e6f8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gnu/system/image.scm
View file

@ -53,6 +53,7 @@ (define-module (gnu system image)
#: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 @@ (define (lookup-image-type-by-name name)
(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