summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu/packages/python-xyz.scm4
-rw-r--r--guix/build-system/python.scm14
2 files changed, 18 insertions, 0 deletions
diff --git a/gnu/packages/python-xyz.scm b/gnu/packages/python-xyz.scm
index cc6233e94f..454fe77dba 100644
--- a/gnu/packages/python-xyz.scm
+++ b/gnu/packages/python-xyz.scm
@@ -40263,6 +40263,10 @@ write text fast, and for various text generation, statistics, and modeling tasks
@end itemize")
(license license:expat)))
+(define-public pypy-whenever
+ (package
+ (inherit (package-with-pypy python-whenever))))
+
(define-public python-xmp-toolkit
(package
(name "python-xmp-toolkit")
diff --git a/guix/build-system/python.scm b/guix/build-system/python.scm
index a51c033d01..de2159fdc7 100644
--- a/guix/build-system/python.scm
+++ b/guix/build-system/python.scm
@@ -34,6 +34,7 @@
#:use-module (srfi srfi-1)
#:export (%python-build-system-modules
package-with-python2
+ package-with-pypy
strip-python2-variant
default-python
default-python2
@@ -72,6 +73,11 @@ extension, such as '.tar.gz'."
(let ((python (resolve-interface '(gnu packages python))))
(module-ref python 'python-2)))
+(define (default-pypy)
+ "Return the default pypy package."
+ (let ((python (resolve-interface '(gnu packages python))))
+ (module-ref python 'pypy)))
+
(define sanity-check.py
;; The script used to validate the installation of a Python package.
(search-auxiliary-file "python/sanity-check.py"))
@@ -126,6 +132,14 @@ pre-defined variants."
(package-mapping transform cut?))
+(define package-with-pypy
+ ;; Note: delay call to 'default-pypy' until after the 'arguments' field
+ ;; of packages is accessed to avoid a circular dependency when evaluating
+ ;; the top-level of (gnu packages python).
+ (package-with-explicit-python (delay (default-pypy))
+ "python-" "pypy-"
+ #:variant-property 'pypy-variant))
+
(define package-with-python2
;; Note: delay call to 'default-python2' until after the 'arguments' field
;; of packages is accessed to avoid a circular dependency when evaluating