15/18: gnu: vpnc-scripts: Set #:guile argument of 'wrap-script'.

[guix-commits]

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

commit 3bbb0ec8888e7ca3bb2bc393c34490f60482789b
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Mon May 31 20:06:12 2021 +0200

    gnu: vpnc-scripts: Set #:guile argument of 'wrap-script'.
    
    * gnu/packages/vpn.scm
      (vpnc-scripts)[arguments]<#:phases>{wrap-scripts}:
      Set #:guile argument of ‘wrap-script’.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 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 a952e3f..33ef87c 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)))