tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

services: static-networking: Tweak error messages.

Browse Source 
* gnu/services/base.scm (assert-network-link-mac-address): Change error
message string to conform to standards.
(assert-network-link-type): Change to ‘define-with-syntax-properties’ since
previously it would reject a non-literal symbol.  Adjust message string.

Change-Id: I0a8b9d7512ca7567f9d60eb15ad6fb4e05020e48
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Ludovic Courtès
2026-01-09 23:17:57 +01:00
parent b61e684741
commit 1bd2dd9020
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/services/base.scm
View File

@@ -3189,21 +3189,21 @@ Write, say, @samp{\"~a/24\"} for a 24-bit network mask.")
((and (string? value) (mac-address? value)) value)
(else (raise
(make-compound-condition
(formatted-message (G_ "Value (~S) is not a valid mac address.~%")
(formatted-message (G_ "~s: invalid MAC address")
value)
(condition (&error-location
(location (source-properties->location procedure-call-location)))))))))
(define-compile-time-procedure (assert-network-link-type (value identity))
(define-with-syntax-properties (assert-network-link-type (value properties))
(match value
(#f value)
(('quote _) (datum->syntax #'value value))
(else
((? symbol?) value)
(_
(raise
(make-compound-condition
(formatted-message (G_ "Value (~S) is not a symbol.~%") value)
(formatted-message (G_ "~s: invalid link type") value)
(condition (&error-location
(location (source-properties->location procedure-call-location)))))))))
(location (source-properties->location properties)))))))))
(define-record-type* <static-networking>
static-networking make-static-networking