guix/guix-cuirass
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git synced 2023-12-14 06:03:04 +01:00
Code Issues Releases Wiki Activity

logging: Remove build warnings.

Browse source 
* src/cuirass/logging.scm (log-message): Turn into a procedure.
This commit is contained in:
Mathieu Othacehe 2021-03-10 08:32:52 +01:00
parent 1d0bfd796e
commit 14e1335732
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/cuirass/logging.scm
View file

@ -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))