summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-04-17 18:02:48 +0200
committerLudovic Courtès <ludo@gnu.org>2013-04-17 18:02:48 +0200
commit801486fe46b288338de6ed542c70acade45aac9a (patch)
treee496ca4cbe67c23ac54253ddbba988d0e7a864d5
parentdd36b51bf7cffa389726ad997465b14f7072944a (diff)
downloadguix-801486fe46b288338de6ed542c70acade45aac9a.tar.gz
ui: Fix format string in `warning'.
* guix/ui.scm (warning)[augmented-format-string]: Add missing ~*.
-rw-r--r--guix/ui.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/ui.scm b/guix/ui.scm
index db0711bb61..938b5d259c 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -381,7 +381,7 @@ WIDTH columns."
     ;; All this just to preserve `-Wformat' warnings.  Too much?
 
     (define (augmented-format-string fmt)
-      (string-append "~:[~;guix ~a: ~]~a" (syntax->datum fmt)))
+      (string-append "~:[~*~;guix ~a: ~]~a" (syntax->datum fmt)))
 
     (define prefix
       #'(_ "warning: "))