Placate `-Wformat'.

* module/scripts/compile.scm (fail): Use a fancy format string instead
  of a non-literal one.

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