From 55fb5e5d2113a732a03e255371f0172800483023 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Tue, 17 Nov 2020 09:40:44 +0100
Subject: 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(-)

(limited to 'guix/build/utils.scm')

diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index fe2d82c99e..bf57564c80 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)
-- 
cgit v1.2.3