1 files changed, 9 insertions(+), 1 deletions(-)

M ruther/packages/python-next.scm

@@ 28,7 28,8 @@
   #:use-module (gnu packages python-build)
   #:use-module (gnu packages python-xyz)
 
-  #:export (replace-python-deps))
+  #:export (replace-python-deps
+            replace-python-deps/recursively))
 
 (define with-python-3.12-raw
   (package-input-rewriting `((,python . ,python-3.12))))


@@ 196,6 197,13 @@ pre-defined variants."
   (package-mapping rewrite cut?
                    #:deep? deep?))
 
+(define* (replace-python-deps/recursively deps #:key (deep? #t))
+  (if (nil? deps)
+      identity
+      (lambda (pkgs)
+        ((replace-python-deps (list (car deps)))
+         ((replace-python-deps/recursively (cdr deps)) pkgs)))))
+
 (define with-explicit-python-3.12-single
   (package-with-explicit-python python-3.12-toolchain "python-" "python-3.12-"))