From ee975926ec25e44332545b0dd6df3288dbb1f4e8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 1 Apr 2024 17:27:01 +0200 Subject: [PATCH] Autoload (guix build syscalls). * guix/discovery.scm, guix/git.scm, guix/nar.scm, guix/scripts.scm, guix/scripts/build.scm: Autoload (guix build syscalls). * guix/packages.scm: Autoload (guix build utils). Change-Id: Ia7703b5f46e55fbfadff63b13c35bfe097ce2220 --- guix/discovery.scm | 4 ++-- guix/git.scm | 3 +-- guix/nar.scm | 4 ++-- guix/packages.scm | 5 ++--- guix/scripts.scm | 7 +++++-- guix/scripts/build.scm | 4 ++-- 6 files changed, 14 insertions(+), 13 deletions(-) diff --git a/guix/discovery.scm b/guix/discovery.scm index 0edc7fd1ae..2febfcdcb7 100644 --- a/guix/discovery.scm +++ b/guix/discovery.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès +;;; Copyright © 2012-2019, 2024 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -20,7 +20,7 @@ (define-module (guix discovery) #:use-module (guix i18n) #:use-module (guix modules) #:use-module (guix combinators) - #:use-module (guix build syscalls) + #:autoload (guix build syscalls) (scandir*) #:use-module (srfi srfi-1) #:use-module (ice-9 match) #:use-module (ice-9 vlist) diff --git a/guix/git.scm b/guix/git.scm index 8e1d863976..b22c8ac02a 100644 --- a/guix/git.scm +++ b/guix/git.scm @@ -33,8 +33,7 @@ (define-module (guix git) #:use-module (guix store) #:use-module (guix utils) #:use-module (guix records) - #:use-module ((guix build syscalls) - #:select (terminal-string-width)) + #:autoload (guix build syscalls) (terminal-string-width) #:use-module (guix gexp) #:autoload (guix git-download) (git-reference-url git-reference-commit git-reference-recursive?) diff --git a/guix/nar.scm b/guix/nar.scm index cabcc4bbbf..c7842399dc 100644 --- a/guix/nar.scm +++ b/guix/nar.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2018, 2019, 2020 Ludovic Courtès +;;; Copyright © 2012-2016, 2018-2020, 2024 Ludovic Courtès ;;; Copyright © 2014 Mark H Weaver ;;; ;;; This file is part of GNU Guix. @@ -19,7 +19,7 @@ (define-module (guix nar) #:use-module (guix serialization) - #:use-module (guix build syscalls) + #:autoload (guix build syscalls) (lock-file unlock-file) #:use-module ((guix build utils) #:select (delete-file-recursively with-directory-excursion)) diff --git a/guix/packages.scm b/guix/packages.scm index 930b1a3b0e..bd72b284b1 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012-2023 Ludovic Courtès +;;; Copyright © 2012-2024 Ludovic Courtès ;;; Copyright © 2014, 2015, 2017, 2018, 2019 Mark H Weaver ;;; Copyright © 2015 Eric Bavier ;;; Copyright © 2016 Alex Kost @@ -27,8 +27,7 @@ ;;; along with GNU Guix. If not, see . (define-module (guix packages) - #:use-module ((guix build utils) #:select (compressor tarball? - strip-store-file-name)) + #:autoload (guix build utils) (compressor tarball? strip-store-file-name) #:use-module (guix utils) #:use-module (guix records) #:use-module (guix store) diff --git a/guix/scripts.scm b/guix/scripts.scm index 5d11ce7fe9..c4849816ea 100644 --- a/guix/scripts.scm +++ b/guix/scripts.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2015, 2017, 2018, 2019, 2020, 2021, 2021 Ludovic Courtès +;;; Copyright © 2013-2015, 2017-2021, 2021, 2024 Ludovic Courtès ;;; Copyright © 2014 Deck Pickard ;;; Copyright © 2015, 2016 Alex Kost ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen @@ -29,7 +29,10 @@ (define-module (guix scripts) #:use-module (guix packages) #:use-module (guix derivations) #:autoload (guix describe) (current-profile-date) - #:use-module (guix build syscalls) + #:autoload (guix build syscalls) (statfs + file-system-block-size + file-system-blocks-available + file-system-block-count) #:use-module (srfi srfi-1) #:use-module (srfi srfi-19) #:use-module (srfi srfi-37) diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm index 05f022a92e..da4859eeaa 100644 --- a/guix/scripts/build.scm +++ b/guix/scripts/build.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012-2023 Ludovic Courtès +;;; Copyright © 2012-2024 Ludovic Courtès ;;; Copyright © 2013 Mark H Weaver ;;; Copyright © 2020 Marius Bakke ;;; Copyright © 2020 Ricardo Wurmus @@ -45,7 +45,7 @@ (define-module (guix scripts build) #:use-module (guix platform) #:use-module ((guix status) #:select (with-status-verbosity)) #:use-module ((guix progress) #:select (current-terminal-columns)) - #:use-module ((guix build syscalls) #:select (terminal-columns)) + #:autoload (guix build syscalls) (terminal-columns) #:use-module (guix transformations) #:export (log-url