services: static-networking: Tweak error messages.

* 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>

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