gnu: guilescript: Use GEXPs.

* gnu/packages/guile-xyz.scm (guilescript): Use GEXPs.

Change-Id: I004186fef0c270589f6cac2f1777fbda3fa7718b
This commit is contained in:
Artyom V. Poptsov 2025-02-06 22:34:58 +03:00
parent 70231fe775
commit 3afa3aa73a
No known key found for this signature in database
GPG key ID: 935EBE0736DC857E

View file

@ -289,26 +289,27 @@ more.")
"15bvgklv77kvkl8dizriqblfir6rid5nm79ymi3m2fvpd7wf77qy")))) "15bvgklv77kvkl8dizriqblfir6rid5nm79ymi3m2fvpd7wf77qy"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags '("GUILE_AUTO_COMPILE=0") (list #:make-flags #~(list "GUILE_AUTO_COMPILE=0")
#:modules (((guix build guile-build-system) #:modules `(((guix build guile-build-system)
#:select (target-guile-effective-version)) #:select (target-guile-effective-version))
,@%default-gnu-modules) ,@%default-gnu-modules)
#:imported-modules ((guix build guile-build-system) #:imported-modules `((guix build guile-build-system)
,@%default-gnu-imported-modules) ,@%default-gnu-imported-modules)
#:phases (modify-phases %standard-phases #:phases #~(modify-phases %standard-phases
(add-after 'install 'wrap-guilescript (add-after 'install 'wrap-guilescript
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let* ((bin (string-append #$output "/bin"))
(bin (string-append out "/bin")) (version (target-guile-effective-version))
(version (target-guile-effective-version)) (scm (string-append "/share/guile/site/"
(scm (string-append "/share/guile/site/" version)) version))
(go (string-append "/lib/guile/" version "/site-ccache"))) (go (string-append "/lib/guile/"
(wrap-program (string-append bin "/guilescript") version
`("GUILE_LOAD_PATH" prefix "/site-ccache")))
(,(string-append out scm))) (wrap-program (string-append bin "/guilescript")
`("GUILE_LOAD_COMPILED_PATH" prefix `("GUILE_LOAD_PATH" prefix
(,(string-append out go))))) (,(string-append #$output scm)))
#t))))) `("GUILE_LOAD_COMPILED_PATH" prefix
(,(string-append #$output go))))))))))
(native-inputs (list autoconf automake pkg-config)) (native-inputs (list autoconf automake pkg-config))
(inputs (list guile-3.0 bash-minimal)) (inputs (list guile-3.0 bash-minimal))
(home-page "https://github.com/aconchillo/guilescript") (home-page "https://github.com/aconchillo/guilescript")