diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-10-12 21:59:53 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-10-13 00:06:29 +0200 |
commit | 796c980a6ac19863b9bd8f46a023bcc601845144 (patch) | |
tree | a19327f77b8870b95bcd76aeeba80aebc6f9c181 | |
parent | 3d59aa7c0bdcba61d9d3d4a4ac831e53b37bcd24 (diff) | |
download | guile-796c980a6ac19863b9bd8f46a023bcc601845144.tar.gz |
Placate `-Wformat'.
* module/scripts/compile.scm (fail): Use a fancy format string instead
of a non-literal one.
-rw-r--r-- | module/scripts/compile.scm | 3 |
1 files changed, 1 insertions, 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 |