gnu: Rename 'guile-3.0/fixed' to 'guile-3.0/pinned'.

* gnu/packages/guile.scm: Rename variable 'guile-3.0/fixed' to
'guile-3.0/pinned', add deprecation.
* etc/release-manifest.scm (%packages-to-cross-build): Replace
'guile-3.0/fixed' with 'guile-3.0/pinned'.
* gnu/packages/autotools.scm (make-autoconf-wrapper)[inputs]: Likewise.
* gnu/packages/commencement.scm (guile-final): Likewise.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Simon Tournier 2023-02-01 10:36:02 +01:00 committed by Liliana Marie Prikler
parent 81f8cfcf0b
commit c3e61c8c1f
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
4 changed files with 8 additions and 4 deletions

View file

@ -82,7 +82,7 @@ (define %packages-to-cross-build
;; Packages that must be cross-buildable from x86_64-linux. ;; Packages that must be cross-buildable from x86_64-linux.
;; FIXME: Add (@ (gnu packages gcc) gcc) when <https://bugs.gnu.org/40463> ;; FIXME: Add (@ (gnu packages gcc) gcc) when <https://bugs.gnu.org/40463>
;; is fixed. ;; is fixed.
(append (list (@ (gnu packages guile) guile-3.0/fixed)) (append (list (@ (gnu packages guile) guile-3.0/pinned))
(map specification->package (map specification->package
'("coreutils" "grep" "sed" "findutils" "diffutils" "patch" '("coreutils" "grep" "sed" "findutils" "diffutils" "patch"
"gawk" "gettext" "gzip" "xz" "gawk" "gettext" "gzip" "xz"

View file

@ -209,7 +209,7 @@ (define (make-autoconf-wrapper autoconf)
(inputs `(("guile" (inputs `(("guile"
;; XXX: Kludge to hide the circular dependency. ;; XXX: Kludge to hide the circular dependency.
,(module-ref (resolve-interface '(gnu packages guile)) ,(module-ref (resolve-interface '(gnu packages guile))
'guile-3.0/fixed)) 'guile-3.0/pinned))
("autoconf" ,autoconf) ("autoconf" ,autoconf)
("bash" ,bash-minimal))) ("bash" ,bash-minimal)))
(arguments (arguments

View file

@ -3623,7 +3623,7 @@ (define-public guile-final
;; This package must be public because other modules refer to it. However, ;; This package must be public because other modules refer to it. However,
;; mark it as hidden so that 'fold-packages' ignores it. ;; mark it as hidden so that 'fold-packages' ignores it.
(with-boot4 (hidden-package (with-boot4 (hidden-package
(package-with-bootstrap-guile guile-3.0/fixed)))) (package-with-bootstrap-guile guile-3.0/pinned))))
(define-public glibc-utf8-locales-final (define-public glibc-utf8-locales-final
;; Now that we have GUILE-FINAL, build the UTF-8 locales. They are needed ;; Now that we have GUILE-FINAL, build the UTF-8 locales. They are needed

View file

@ -419,7 +419,11 @@ (define-public guile-3.0-latest
"GUILE_OPTIMIZATIONS = -O1 -Oresolve-primitives -Ocps\n"))))) "GUILE_OPTIMIZATIONS = -O1 -Oresolve-primitives -Ocps\n")))))
'()))))))) '())))))))
(define-public guile-3.0/fixed ;;; The symbol guile-3.0/fixed should be used when guile-3.0 needs fixes
;;; (security or else) and this deprecation could be removed.
(define-deprecated/public-alias guile-3.0/fixed guile-3.0/pinned)
(define-public guile-3.0/pinned
;; A package of Guile that's rarely changed. It is the one used in the ;; A package of Guile that's rarely changed. It is the one used in the
;; `base' module, and thus changing it entails a full rebuild. ;; `base' module, and thus changing it entails a full rebuild.
(package (package