From 796c980a6ac19863b9bd8f46a023bcc601845144 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 12 Oct 2010 21:59:53 +0200
Subject: [PATCH] Placate `-Wformat'.

* module/scripts/compile.scm (fail): Use a fancy format string instead
  of a non-literal one.
---
 module/scripts/compile.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/module/scripts/compile.scm b/module/scripts/compile.scm
index 3e451a6b3..f3853ff6a 100644
--- a/module/scripts/compile.scm
+++ b/module/scripts/compile.scm
@@ -39,8 +39,7 @@
 
 
 (define (fail . messages)
-  (format (current-error-port)
-	  (string-concatenate `("error: " ,@messages "~%")))
+  (format (current-error-port) "error: ~{~a~}~%" messages)
   (exit 1))
 
 (define %options