mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Placate `-Wformat'.

Browse source 
* module/scripts/compile.scm (fail): Use a fancy format string instead
  of a non-literal one.
This commit is contained in:
Ludovic Courtès 2010-10-12 21:59:53 +02:00
parent 3d59aa7c0b
commit 796c980a6a
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/scripts/compile.scm
View file

@ -39,8 +39,7 @@
(define (fail . messages) (define (fail . messages)
(format (current-error-port) (format (current-error-port) "error: ~{~a~}~%" messages)
(string-concatenate `("error: " ,@messages "~%")))
(exit 1)) (exit 1))
(define %options (define %options