From 7ecf6502fc902959fd2a233c5f772180678e9f35 Mon Sep 17 00:00:00 2001 From: Maxime Devos Date: Mon, 31 May 2021 20:06:12 +0200 Subject: [PATCH 15/18] gnu: vpnc-scripts: Set #:guile argument of 'wrap-script'. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/vpn.scm (vpnc-scripts)[arguments]<#:phases>{wrap-scripts}: Set #:guile argument of ‘wrap-script’. --- gnu/packages/vpn.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gnu/packages/vpn.scm b/gnu/packages/vpn.scm index a952e3f0db..33ef87c52d 100644 --- a/gnu/packages/vpn.scm +++ b/gnu/packages/vpn.scm @@ -192,10 +192,12 @@ Only \"Universal TUN/TAP device driver support\" is needed in the kernel.") ;; Wrap scripts with paths to their common hard dependencies. ;; Optional dependencies will need to be installed by the user. (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) + (let ((out (assoc-ref outputs "out")) + (guile (search-input-file inputs "bin/guile"))) (for-each (lambda (script) (wrap-script (string-append out "/etc/vpnc/" script) + #:guile guile `("PATH" ":" prefix ,(map (lambda (name) (let ((input (assoc-ref inputs name))) -- 2.31.1