branch master updated: logging: Remove build warnings.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new 14e1335  logging: Remove build warnings.
14e1335 is described below

commit 14e1335732271fdce730cb7e5043429ea9155201
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Wed Mar 10 08:32:52 2021 +0100

    logging: Remove build warnings.
    
    * src/cuirass/logging.scm (log-message): Turn into a procedure.
---
 src/cuirass/logging.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/logging.scm b/src/cuirass/logging.scm
index 3982ef2..e6f57c4 100644
--- a/src/cuirass/logging.scm
+++ b/src/cuirass/logging.scm
@@ -47,11 +47,11 @@
   (make-parameter (lambda (str)
                     (log-to-port (current-logging-port) str))))
 
-(define-syntax-rule (log-message fmt args ...)
+(define (log-message fmt . args)
   "Log the given message as one line."
   ;; Note: Use '@' to make sure -Wformat detects this use of 'format'.
   ((current-logging-procedure)
-   ((@ (ice-9 format) format) #f fmt args ...)))
+   (apply (@ (ice-9 format) format) #f fmt args)))
 
 (define (call-with-time-logging name thunk)
   (let* ((start   (current-time time-utc))