Subject: [PATCH rust-team 2/3] gnu: rust bootstrap: Set #:disallowed-references.

From: Morgan Smith <[email-masked]>
Date: Tue, 3 Jun 2025 22:13:22 -0400

* gnu/packages/rust.scm (rust-1.55, rust-1.75, rust)
(make-rust-sysroot/implementation): Set #:disallowed-references to the rust in
the native-inputs.

Change-Id: Ifa30f316e3777b748b067ba0ea5a7ee558a05eb2
---
 gnu/packages/rust.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/rust.scm b/gnu/packages/rust.scm
index 2130322942..7fbe4b0aa8 100644
--- a/gnu/packages/rust.scm
+++ b/gnu/packages/rust.scm
@@ -560,6 +560,7 @@ (define-public rust-1.55
     (build-system gnu-build-system)
     (arguments
      (list
+      #:disallowed-references (list (this-package-native-input "rust"))
       #:validate-runpath? #f
       ;; Only the final Rust is tested, not the intermediate bootstrap ones,
       ;; for performance and simplicity.
@@ -1091,6 +1092,8 @@ (define-public rust-1.75
       (arguments
        (if (supported-package? rust-bootstrap-1.74)
            (substitute-keyword-arguments (package-arguments base-rust)
+             ((#:disallowed-references _ '())
+              (list rust-bootstrap-1.74))
              ((#:phases phases)
               #~(modify-phases #$phases
                   (add-after 'unpack 'add-cc-shim-to-path
@@ -1398,6 +1401,8 @@ (define-public rust
        (substitute-keyword-arguments
            (strip-keyword-arguments '(#:tests?)
                                     (package-arguments base-rust))
+         ((#:disallowed-references _ '())
+          (list (this-package-native-input "rust")))
          ((#:phases phases)
           #~(modify-phases #$phases
               (add-after 'unpack 'relax-gdb-auto-load-safe-path
@@ -1770,6 +1775,8 @@ (define make-rust-sysroot/implementation
       (arguments
        (substitute-keyword-arguments (package-arguments base-rust)
          ((#:tests? _ #f) #f)           ; This package for cross-building.
+         ((#:disallowed-references _ '())
+          (list (this-package-native-input "rust")))
          ((#:phases phases)
           #~(modify-phases #$phases
               (add-after 'unpack 'unbundle-xz
-- 
2.49.0