From 25f86fdc4fe13cf405c1556db361cc0151ff5da8 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Mon, 14 Apr 2025 00:08:03 +0900
Subject: [PATCH] build: dbus-service: Quote body argument in 'with-retries'
 syntax.

Otherwise the code would be evaluated instead of shown.

* gnu/build/dbus-service.scm (with-retries): Quote the body data in the error
message.

Change-Id: I7a06f08327bdc7df70ae56a146855bc32ad3e63e
---
 gnu/build/dbus-service.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/build/dbus-service.scm b/gnu/build/dbus-service.scm
index 3ae45ad755f..688afe44c3d 100644
--- a/gnu/build/dbus-service.scm
+++ b/gnu/build/dbus-service.scm
@@ -91,7 +91,7 @@ each retry."
               ((sleep*) delay)            ;else wait and retry
               (loop (+ 1 attempts)))
             (error "maximum number of retry attempts reached"
-                   body ... args))))))
+                   (quote body ...) args))))))
 
 
 ;;;