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'.
This commit is contained in:
Ludovic Courtès 2020-11-17 09:40:44 +01:00
parent 8d263ff254
commit 55fb5e5d21
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

View File

@ -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)