-(when %store
- ;; Make sure we build everything by ourselves.
- (set-build-options %store #:use-substitutes? #f))
-
-(define %bootstrap-inputs
- ;; Use the bootstrap inputs so it doesn't take ages to run these tests.
- ;; This still involves building Make, Diffutils, and Findutils.
- ;; XXX: We're relying on the higher-level `package-derivations' here.
- (and %store
- (map (match-lambda
- ((name package)
- (list name (package-derivation %store package))))
- (@@ (gnu packages base) %boot0-inputs))))
-
-(define %bootstrap-search-paths
- ;; Search path specifications that go with %BOOTSTRAP-INPUTS.
- (append-map (match-lambda
- ((name package _ ...)
- (package-native-search-paths package)))
- (@@ (gnu packages base) %boot0-inputs)))
-
-(define network-reachable?
- (false-if-exception (getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)))