diff options
Diffstat (limited to 'gnu/services/base.scm')
| -rw-r--r-- | gnu/services/base.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 1117c761e84..40f3c7c7e2e 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -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 |