02/131: build/python: Replace PYTHONPATH by GUIX_PYTHONPATH.

[guix-commits]

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

commit 18e9979970eb3a2cc9e0afca4a64c220ce6ebe5b
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Fri Jan 22 09:39:01 2021 -0500

    build/python: Replace PYTHONPATH by GUIX_PYTHONPATH.
    
    * guix/build/python-build-system.scm (add-installed-pythonpath): Replace
    "PYTHONPATH" by "GUIX_PYTHONPATH".
---
 guix/build/python-build-system.scm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/guix/build/python-build-system.scm 
b/guix/build/python-build-system.scm
index c6c88e6..8e35939 100644
--- a/guix/build/python-build-system.scm
+++ b/guix/build/python-build-system.scm
@@ -170,14 +170,13 @@
     (string-append out "/lib/python" (python-version python) 
"/site-packages")))
 
 (define (add-installed-pythonpath inputs outputs)
-  "Prepend the Python site-package of OUTPUT to PYTHONPATH.  This is useful
+  "Add the Python site-package of OUTPUT to GUIX_PYTHONPATH.  This is useful
 when running checks after installing the package."
-  (let ((old-path (getenv "PYTHONPATH"))
-        (add-path (site-packages inputs outputs)))
-    (setenv "PYTHONPATH"
-            (string-append add-path
-                           (if old-path (string-append ":" old-path) "")))
-    #t))
+  (let ((old-path (getenv "GUIX_PYTHONPATH"))
+        (new-path (site-packages inputs outputs)))
+    (setenv "GUIX_PYTHONPATH"
+            (string-append new-path
+                           (if old-path (string-append ":" old-path) "")))))
 
 (define* (install #:key inputs outputs (configure-flags '()) use-setuptools?
                   #:allow-other-keys)