build/dbus-service: Fix possible syntax error in 'with-retries'.

When the body was not a single expression, quote would throw a syntax error.

* gnu/build/dbus-service.scm (with-retries): Ensure the body is a single
expression when quoted for the error message.

Change-Id: I44ec61bc26c8959b499bc94eb661762afdaf99ba
This commit is contained in:
Maxim Cournoyer 2025-12-29 18:29:25 +09:00
parent 0c6fe1a1e7
commit 045ee8ec77
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -91,7 +91,7 @@ each retry."
((sleep*) delay) ;else wait and retry
(loop (+ 1 attempts)))
(error "maximum number of retry attempts reached"
(quote body ...) args))))))
(quote (begin body ...)) args))))))
;;;