01/03: utils: 'wrap-script' doesn't pass a non-literal string to 'format'.

[guix-commits]

civodul pushed a commit to branch core-updates
in repository guix.

commit 55fb5e5d2113a732a03e255371f0172800483023
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Nov 17 09:40:44 2020 +0100

    utils: 'wrap-script' doesn't pass a non-literal string to 'format'.
    
    Reported by Vagrant Cascadian <vagrant@debian.org>
    in <https://bugs.gnu.org/44626>.
    
    * guix/build/utils.scm (wrap-script): Use 'display' instead of passing a
    non-literal string to 'format'.
---
 guix/build/utils.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index fe2d82c..bf57564 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -1347,7 +1347,7 @@ not supported."
                 (lambda ()
                   (call-with-ascii-input-file prog
                     (lambda (p)
-                      (format out header)
+                      (display header out)
                       (dump-port p out)
                       (close out)
                       (chmod template mode)