gnu: python-on-guile: Wrap 'python' executable.

* gnu/packages/guile-xyz.scm (python-on-guile)[arguments]: Add 'wrap'
phase.
This commit is contained in:
Ludovic Courtès 2019-06-26 15:22:03 +02:00
parent 5d5edb88bd
commit 83817158b2
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 3 deletions

View File

@ -2187,12 +2187,23 @@ serializing continuations or delimited continuations.")
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:parallel-build? #f ; not supported `(#:parallel-build? #f ; not supported
#:make-flags #:make-flags '("GUILE_AUTO_COMPILE=0") ;to prevent guild warnings
'("GUILE_AUTO_COMPILE=0") ; to prevent guild errors
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'chdir (add-after 'unpack 'chdir
(lambda _ (chdir "modules") #t))))) (lambda _ (chdir "modules") #t))
(add-after 'install 'wrap
(lambda* (#:key outputs #:allow-other-keys)
;; Wrap the 'python' executable so it can find its
;; dependencies.
(let ((out (assoc-ref outputs "out")))
(wrap-program (string-append out "/bin/python")
`("GUILE_LOAD_PATH" ":" prefix
(,(getenv "GUILE_LOAD_PATH")))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix
(,(getenv "GUILE_LOAD_COMPILED_PATH"))))
#t))))))
(inputs (inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-2.2)))
(propagated-inputs (propagated-inputs