~ruther/guix-local

d5ec5ed7197d121130af6953378bcfd8929a9754 — Ludovic Courtès 8 years ago f644405
packages: Mark 'replacement' as an "innate" field.

Suggested by Mark H Weaver
at <https://lists.gnu.org/archive/html/guix-devel/2017-06/msg00355.html>.

* guix/packages.scm (<package>)[replacement]: Mark as "innate".
* gnu/packages/base.scm (glibc-2.25-patched, glibc-2.24)
(glibc-2.23, glibc-2.22, glibc-2.21, glibc-locales): Remove
'replacement' field, which was set to #f.
* gnu/packages/commencement.scm (perl-boot0): Likewise.
* gnu/packages/fontutils.scm (graphite2/fixed): Likewise.
* gnu/packages/ghostscript.scm (ghostscript/fixed): Likewise.
* gnu/packages/gnupg.scm (libgcrypt-1.7.8): Likewise.
* gnu/packages/guile.scm (guile-2.0/fixed, guile-2.2): Likewise.
* gnu/packages/icu4c.scm (icu4c/fixed): Likewise.
* gnu/packages/image.scm (libpng-apng): Likewise.
* gnu/packages/make-bootstrap.scm (%guile-static): Likewise.
* gnu/packages/pcre.scm (pcre/fixed): Likewise.
* gnu/packages/perl.scm (perl/fixed): Likewise.
* gnu/packages/ruby.scm (ruby-2.3, ruby-2.2, ruby-2.1)
(ruby-1.8): Likewise.
* gnu/packages/tls.scm (gnutls-3.5.13, gnutls/guile-2.2): Likewise.
* gnu/packages/xml.scm (expat-2.2.1): Likewise.
M gnu/packages/base.scm => gnu/packages/base.scm +0 -6
@@ 905,7 905,6 @@ GLIBC/HURD for a Hurd host"
(define glibc-2.25-patched
  (package
    (inherit glibc)
    (replacement #f)
    (source (origin
              (inherit (package-source glibc))
              (patches (search-patches "glibc-ldd-x86_64.patch"


@@ 923,7 922,6 @@ GLIBC/HURD for a Hurd host"
  (package
    (inherit glibc)
    (version "2.24")
    (replacement #f)
    (source (origin
              (inherit (package-source glibc))
              (uri (string-append "mirror://gnu/glibc/glibc-"


@@ 943,7 941,6 @@ GLIBC/HURD for a Hurd host"
  (package
    (inherit glibc)
    (version "2.23")
    (replacement #f)
    (source (origin
              (inherit (package-source glibc))
              (uri (string-append "mirror://gnu/glibc/glibc-"


@@ 963,7 960,6 @@ GLIBC/HURD for a Hurd host"
  (package
    (inherit glibc)
    (version "2.22")
    (replacement #f)
    (source (origin
              (inherit (package-source glibc))
              (uri (string-append "mirror://gnu/glibc/glibc-"


@@ 991,7 987,6 @@ GLIBC/HURD for a Hurd host"
  (package
    (inherit glibc-2.22)
    (version "2.21")
    (replacement #f)
    (source (origin
              (inherit (package-source glibc-2.22))
              (uri (string-append "mirror://gnu/glibc/glibc-"


@@ 1004,7 999,6 @@ GLIBC/HURD for a Hurd host"
  (package
    (inherit glibc)
    (name "glibc-locales")
    (replacement #f)
    (source (origin (inherit (package-source glibc))
                    (patches (cons (search-patch "glibc-locales.patch")
                                   (origin-patches (package-source glibc))))))

M gnu/packages/commencement.scm => gnu/packages/commencement.scm +0 -1
@@ 294,7 294,6 @@
  (let ((perl (package
                (inherit perl)
                (name "perl-boot0")
                (replacement #f)
                (arguments
                 ;; At the very least, this must not depend on GCC & co.
                 (let ((args `(#:disallowed-references

M gnu/packages/fontutils.scm => gnu/packages/fontutils.scm +0 -1
@@ 415,7 415,6 @@ and returns a sequence of positioned glyphids from the font.")
  (package
    (inherit graphite2)
    (name "graphite2")
    (replacement #f)
    (source
     (origin
       (method url-fetch)

M gnu/packages/ghostscript.scm => gnu/packages/ghostscript.scm +0 -1
@@ 219,7 219,6 @@ output file formats and printers.")
(define ghostscript/fixed
  (package
    (inherit ghostscript)
    (replacement #f)
    (source
      (origin
        (inherit (package-source ghostscript))

M gnu/packages/gnupg.scm => gnu/packages/gnupg.scm +0 -2
@@ 119,7 119,6 @@ generation.")
(define libgcrypt-1.7.8
  (package
    (inherit libgcrypt)
    (replacement #f)
    (version "1.7.8")
    (source (origin
             (method url-fetch)


@@ 131,7 130,6 @@ generation.")

(define-public libgcrypt-1.5
  (package (inherit libgcrypt)
    (replacement #f)
    (version "1.5.6")
    (source
     (origin

M gnu/packages/guile.scm => gnu/packages/guile.scm +1 -3
@@ 217,14 217,12 @@ without requiring the source code to be rewritten.")
  ;; in the `base' module, and thus changing it entails a full rebuild.
  (package
    (inherit guile-2.0)
    (properties '((hidden? . #t)))          ;people should install 'guile-2.0'
    (replacement #f)))
    (properties '((hidden? . #t)))))        ;people should install 'guile-2.0'

(define-public guile-2.2
  (package (inherit guile-2.0)
    (name "guile")
    (version "2.2.2")
    (replacement #f)
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://gnu/guile/guile-" version

M gnu/packages/icu4c.scm => gnu/packages/icu4c.scm +0 -1
@@ 71,7 71,6 @@ C/C++ part.")
(define icu4c/fixed
  (package
    (inherit icu4c)
    (replacement #f)
    (source (origin
              (inherit (package-source icu4c))
              (patches

M gnu/packages/image.scm => gnu/packages/image.scm +0 -1
@@ 94,7 94,6 @@ library.  It supports almost all PNG features and is extensible.")
(define-public libpng-apng
  (package
    (inherit libpng)
    (replacement #f) ;libpng's replacement doesn't apply here
    (name "libpng-apng")
    (version (package-version libpng))
    (arguments

M gnu/packages/make-bootstrap.scm => gnu/packages/make-bootstrap.scm +0 -1
@@ 509,7 509,6 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
                    (patches patches)))
         (guile (package (inherit guile-2.0)
                  (name (string-append (package-name guile-2.0) "-static"))
                  (replacement #f)
                  (source source)
                  (synopsis "Statically-linked and relocatable Guile")


M gnu/packages/pcre.scm => gnu/packages/pcre.scm +0 -1
@@ 75,7 75,6 @@ POSIX regular expression API.")
(define pcre/fixed
  (package
    (inherit pcre)
    (replacement #f)
    (source (origin
              (inherit (package-source pcre))
              (patches (search-patches "pcre-CVE-2017-7186.patch"))))))

M gnu/packages/perl.scm => gnu/packages/perl.scm +0 -1
@@ 151,7 151,6 @@
(define perl/fixed
  (package
    (inherit perl)
    (replacement #f)
    (source
      (origin
        (inherit (package-source perl))

M gnu/packages/ruby.scm => gnu/packages/ruby.scm +0 -4
@@ 106,7 106,6 @@ a focus on simplicity and productivity.")
  (package
    (inherit ruby)
    (version "2.3.4")
    (replacement #f)
    (source
     (origin
       (method url-fetch)


@@ 124,7 123,6 @@ a focus on simplicity and productivity.")

(define-public ruby-2.2
  (package (inherit ruby)
    (replacement #f)
    (version "2.2.7")
    (source
     (origin


@@ 138,7 136,6 @@ a focus on simplicity and productivity.")

(define-public ruby-2.1
  (package (inherit ruby)
    (replacement #f)
    (version "2.1.10")
    (source
     (origin


@@ 172,7 169,6 @@ a focus on simplicity and productivity.")

(define-public ruby-1.8
  (package (inherit ruby)
    (replacement #f)
    (version "1.8.7-p374")
    (source
     (origin

M gnu/packages/tls.scm => gnu/packages/tls.scm +0 -2
@@ 222,7 222,6 @@ required structures.")
    ;; We use 'D' instead of '13' here to keep the store file name at
    ;; the same length. See <https://bugs.gnu.org/27308>.
    (version "3.5.D")
    (replacement #f)
    (source (origin
              (method url-fetch)
              (uri


@@ 240,7 239,6 @@ required structures.")
  ;; GnuTLS for Guile 2.2.  This is supported by GnuTLS >= 3.5.5.
  (package
    (inherit gnutls)
    (replacement #f)
    (source (package-source gnutls-3.5.13))
    (name "guile2.2-gnutls")
    (arguments

M gnu/packages/xml.scm => gnu/packages/xml.scm +0 -1
@@ 79,7 79,6 @@ things the parser might find in the XML document (like start tags).")
  (package
    (inherit expat)
    (version "2.2.1")
    (replacement #f)
    (source (origin
             (method url-fetch)
             (uri (string-append "mirror://sourceforge/expat/expat/"

M guix/packages.scm => guix/packages.scm +4 -1
@@ 269,8 269,11 @@ name of its URI."
                                                  ; inputs
  (native-search-paths package-native-search-paths (default '()))
  (search-paths package-search-paths (default '()))

  ;; The 'replacement' field is marked as "innate" because it never makes
  ;; sense to inherit a replacement as is.  See the 'package/inherit' macro.
  (replacement package-replacement                ; package | #f
               (default #f) (thunked))
               (default #f) (thunked) (innate))

  (synopsis package-synopsis)                    ; one-line description
  (description package-description)              ; one or two paragraphs