me/guix
Archived
1
0
Fork 0
Code Activity

gnu: python-on-guile: Wrap with own Guile modules.

Browse source 
* gnu/packages/guile-xyz.scm (python-on-guile)[arguments]: Add the output
modules to the wrapper.
This commit is contained in:
Marius Bakke 2020-06-24 00:17:28 +02:00
parent ac94458485
commit 862d6a9173
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 19 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
gnu/packages/guile-xyz.scm
View file

@ -2602,13 +2602,28 @@ serializing continuations or delimited continuations.")
(add-after 'install 'wrap (add-after 'install 'wrap
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Wrap the 'python' executable so it can find its ;; Wrap the 'python' executable so it can find its
;; dependencies. ;; dependencies and own modules.
(let ((out (assoc-ref outputs "out"))) (let* ((out (assoc-ref outputs "out"))
(guile-version ,(version-major+minor
(package-version guile-3.0)))
(scm (string-append out "/share/guile/site/"
guile-version))
(ccache (string-append out "/lib/guile/" guile-version
"/site-ccache"))
(load-path (string-join
(cons scm
;; XXX: cdr because we augment it above.
(cdr (string-split
(getenv "GUILE_LOAD_PATH") #\:)))
":"))
(compiled-path (string-append
ccache ":"
(getenv "GUILE_LOAD_COMPILED_PATH"))))
(wrap-program (string-append out "/bin/python") (wrap-program (string-append out "/bin/python")
`("GUILE_LOAD_PATH" ":" prefix `("GUILE_LOAD_PATH" ":" prefix
(,(getenv "GUILE_LOAD_PATH"))) (,load-path))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix `("GUILE_LOAD_COMPILED_PATH" ":" prefix
(,(getenv "GUILE_LOAD_COMPILED_PATH")))) (,compiled-path)))
#t)))))) #t))))))
(inputs (inputs
`(("guile" ,guile-3.0))) `(("guile" ,guile-3.0)))