amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Default to Guile 3.0.

Browse source 
This patch changes three things:

  1. package derivations are built using Guile 3.0;

  2. 'gexp->derivation' defaults to Guile 3.0;

  3. "guile3.0-" packages are deprecated aliases for the regular
     package, which now depends on Guile 3.0; "guile2.2-" packages are
     introduced; "guile-next" is renamed to "guile".

* gnu/packages/guile.scm (guile-2.0/fixed): Remove.
(guile-3.0/fixed): New variable.
(package-for-guile-3.0): Remove.
(package-for-guile-2.2): New variable.
(define-deprecated-guile3.0-package): New macro.
(guile-3.0)[name]: Change to "guile".
(guile-json-3)[native-inputs, inputs]: New fields.
(guile2.2-json): New variable.
(guile3.0-json): Deprecate.
(guile-gdbm-ffi)[native-inputs]: Switch to GUILE-3.0.
(guile2.2-gdbm-ffi): New variable.
(guile3.0-gdbm-ffi): Deprecate.
(guile-sqlite3): Switch to GUILE-3.0.
(guile2.2-sqlite3): New variable.
(guile3.0-sqlite3): Deprecate.
(guile-bytestructures): Switch to GUILE-3.0.
(guile2.2-bytestructures): New variable.
(guile3.0-bytestructures): Deprecate.
(guile-git): Switch to GUILE-3.0.
(guile2.2-git): New variable.
(guile3.0-git): Deprecate.
(guile-2.2/bug-fix):
* gnu/packages/ci.scm (cuirass): Switch to GUILE-3.0.
* gnu/packages/emacs-xyz.scm (emacs-guix): Switch to GUILE-3.0.
* gnu/packages/gtk.scm (guile-cairo)[arguments]: New field.
Switch to GUILE-3.0.
(guile2.2-cairo): New variable.
(guile3.0-cairo): Deprecate.
(guile-rsvg): Switch to GUILE-3.0.
(guile2.2-cairo): New variable.
(guile3.0-cairo): Deprecate.
(guile-present): Switch to GUILE-3.0.
(guile2.2-present): New variable.
(guile3.0-present): Deprecate.
(guile-gnome)[propagated-inputs]: Use GUILE2.2-CAIRO and GUILE2.2-LIB.
* gnu/packages/guile-xyz.scm (guile-fibers)[arguments]: Add #:configure-flags.
Switch to GUILE-3.0.
(guile2.2-fibers): New variable.
(guile3.0-fibers): Deprecate.
(guile-syntax-highlight): Switch to GUILE-3.0.
(guile2.2-syntax-highlight): New variable.
(guile3.0-syntax-highlight): Deprecate.
(guile-colorized): Switch to GUILE-3.0.
(guile2.2-colorized): New variable.
(guile3.0-colorized): Deprecate.
(guile-pfds): Switch to GUILE-3.0.
(guile2.2-pfds): New variable.
(guile3.0-pfds): Deprecate.
(guile-simple-zmq): Switch to GUILE-3.0.
(guile2.2-simple-zmq): New variable.
(guile3.0-simple-zmq): Deprecate.
(guile-newt): Switch to GUILE-3.0.
(guile2.2-newt): New variable.
(guile3.0-newt): Deprecate.
(guile-parted): Switch to GUILE-3.0.
(guile2.2-parted): New variable.
(guile3.0-parted): Deprecate.
(guile-config): Switch to GUILE-3.0.
(guile2.2-config): New variable.
(guile3.0-config): Deprecate.
(guile-hall): Switch to GUILE-3.0.
(guile2.2-hall): New variable.
(guile3.0-hall): Deprecate.
(guile-ics): Switch to GUILE-3.0.
(guile2.2-ics): New variable.
(guile3.0-ics): Deprecate.
(guile-wisp)[arguments]: Add 'support-guile-3.0' phase.
Switch to GUILE-3.0.
(guile2.2-wisp): New variable.
(guile3.0-wisp): Deprecate.
(guile-lib): Switch to GUILE-3.0.
(guile2.2-lib): New variable.
(guile3.0-lib): Deprecate.
(guile-minikanren): Switch to GUILE-3.0.
(guile2.2-minikanren): New variable.
(guile3.0-minikanren): Deprecate.
(guile-irregex): Switch to GUILE-3.0.
(guile2.2-irregex): New variable.
(guile3.0-irregex): Deprecate.
(haunt): Switch to GUILE-3.0, and remove GUILE-READER.
(guile2.2-haunt): New variable.
(guile3.0-haunt): Deprecate.
(guile-commonmark): Switch to GUILE-3.0.
(guile2.2-commonmark): New variable.
(guile3.0-commonmark): Deprecate.
(mcron): Switch to GUILE-3.0.
(guile2.0-mcron): New variable.
(guile3.0-mcron): Deprecate.
(guile-picture-language): Switch to GUILE-3.0.
(guile2.2-picture-language): New variable.
(guile3.0-picture-language): Deprecate.
(guile-gi): Switch to GUILE-3.0.
(guile2.2-gi): New variable.
(guile3.0-gi): Deprecate.
(guile-hashing): Switch to GUILE-3.0.
(guile2.2-hashing): New variable.
(guile3.0-hashing): Deprecate.
* gnu/packages/package-management.scm (guix): Switch to GUILE-3.0.
(guile2.2-guix): New variable.
(guile3.0-guix): Deprecate.
(gwl): Replace "guile3.0-" with "guile-".
(guix-jupyter)[source]: Adjust for Guile 3.0.
Switch to GUILE-3.0.
* gnu/packages/ssh.scm (guile-ssh): Switch to GUILE-3.0.
(guile2.2-ssh): New variable.
(guile3.0-ssh): Deprecate.
* gnu/packages/admin.scm (shepherd): Switch to GUILE-3.0.
(guile2.2-shepherd): New variable.
(guile3.0-shepherd): Deprecate.
* gnu/packages/mail.scm (mailutils): Switch to GUILE-3.0.
(guile2.2-mailutils): New variable.
(guile3.0-mailutils): Deprecate.
* gnu/packages/plotutils.scm (guile-charting): Switch to GUILE-3.0.
(guile2.2-charting): New variable.
(guile3.0-charting): Deprecate.
* gnu/packages/version-control.scm (libgit2): Switch to GUILE-3.0.
* gnu/packages/vpn.scm (vpnc-scripts): Switch to GUILE-3.0.
* gnu/packages/web.scm (guix-data-service): Switch to GUILE-3.0.
(hpcguix-web): Switch to GUILE-3.0.
* guix/self.scm (specification->package): Refer to the "guile-" variants
instead of "guile3.0-".
* guix/gexp.scm (default-guile): Change to GUILE-3.0.
* build-aux/build-self.scm (build): #:guile-version defaults to "3.0".
* gnu/packages/commencement.scm (guile-final): Base on GUILE-3.0/FIXED.
This commit is contained in:
Ludovic Courtès 2020-02-23 00:20:30 +01:00
parent d8f78f5448
commit b6bee63bed
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
18 changed files with 358 additions and 233 deletions
Download patch file Download diff file Expand all files Collapse all files

4
build-aux/build-self.scm
View file

@ -383,11 +383,11 @@ interface (FFI) of Guile.")
#:key verbose? (version (date-version-string)) system #:key verbose? (version (date-version-string)) system
(pull-version 0) (pull-version 0)
;; For the standalone Guix, default to Guile 2.2. For old ;; For the standalone Guix, default to Guile 3.0. For old
;; versions of 'guix pull' (pre-0.15.0), we have to use the ;; versions of 'guix pull' (pre-0.15.0), we have to use the
;; same Guile as the current one. ;; same Guile as the current one.
(guile-version (if (> pull-version 0) (guile-version (if (> pull-version 0)
"2.2" "3.0"
(effective-version))) (effective-version)))
#:allow-other-keys #:allow-other-keys

15
gnu/packages/admin.scm
View file

@ -211,10 +211,10 @@ and provides a \"top-like\" mode (monitoring).")
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
;; This is the Guile we use as a cross-compiler... ;; This is the Guile we use as a cross-compiler...
("guile" ,guile-2.2))) ("guile" ,guile-3.0)))
(inputs (inputs
;; ... and this is the one that appears in shebangs when cross-compiling. ;; ... and this is the one that appears in shebangs when cross-compiling.
`(("guile" ,guile-2.2) `(("guile" ,guile-3.0)
;; The 'shepherd' command uses Readline when used interactively. It's ;; The 'shepherd' command uses Readline when used interactively. It's
;; an unusual use case though, so we don't propagate it. ;; an unusual use case though, so we don't propagate it.
@ -228,15 +228,18 @@ interface and is based on GNU Guile.")
(license license:gpl3+) (license license:gpl3+)
(home-page "https://www.gnu.org/software/shepherd/"))) (home-page "https://www.gnu.org/software/shepherd/")))
(define-public guile3.0-shepherd (define-public guile2.2-shepherd
(package (package
(inherit shepherd) (inherit shepherd)
(name "guile3.0-shepherd") (name "guile2.2-shepherd")
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("guile" ,guile-next))) ("guile" ,guile-2.2)))
(inputs (inputs
`(("guile" ,guile-next))))) `(("guile" ,guile-2.2)))))
(define-public guile3.0-shepherd
(deprecated-package "guile3.0-shepherd" shepherd))
(define-public cloud-utils (define-public cloud-utils
(package (package

2
gnu/packages/ci.scm
View file

@ -120,7 +120,7 @@
`("GUILE_LOAD_COMPILED_PATH" ":" prefix (,objs))) `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,objs)))
#t)))))) #t))))))
(inputs (inputs
`(("guile" ,guile-2.2) `(("guile" ,guile-3.0)
("guile-fibers" ,guile-fibers) ("guile-fibers" ,guile-fibers)
("guile-gcrypt" ,guile-gcrypt) ("guile-gcrypt" ,guile-gcrypt)
("guile-json" ,guile-json-3) ("guile-json" ,guile-json-3)

2
gnu/packages/commencement.scm
View file

@ -3589,7 +3589,7 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%"
;; 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-2.2/fixed)))) (package-with-bootstrap-guile guile-3.0/fixed))))
(define glibc-utf8-locales-final (define 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

4
gnu/packages/emacs-xyz.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Taylan Ulrich Bayirli/Kammer <taylanbayirli@gmail.com> ;;; Copyright © 2014 Taylan Ulrich Bayirli/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015, 2016, 2017, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Alex Kost <alezost@gmail.com> ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Alex Kost <alezost@gmail.com>
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
@ -2207,7 +2207,7 @@ type, for example: packages, buffers, files, etc.")
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("emacs" ,emacs-minimal))) ("emacs" ,emacs-minimal)))
(inputs (inputs
`(("guile" ,guile-2.2) `(("guile" ,guile-3.0)
("guix" ,guix))) ("guix" ,guix)))
(propagated-inputs (propagated-inputs
`(("geiser" ,emacs-geiser) `(("geiser" ,emacs-geiser)

16
gnu/packages/gnupg.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2015, 2018 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013, 2015, 2018 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2014, 2018 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014, 2018 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
@ -493,7 +493,7 @@ gpgpme starting with version 1.7.")
("texinfo" ,texinfo) ("texinfo" ,texinfo)
("guile" ,guile-2.2))) ("guile" ,guile-2.2)))
(inputs (inputs
`(("guile" ,guile-2.2) `(("guile" ,guile-3.0)
("libgcrypt" ,libgcrypt))) ("libgcrypt" ,libgcrypt)))
(synopsis "Cryptography library for Guile using Libgcrypt") (synopsis "Cryptography library for Guile using Libgcrypt")
(description (description
@ -514,17 +514,17 @@ interface (FFI) of Guile.")
`(("guile" ,guile-2.0) `(("guile" ,guile-2.0)
,@(alist-delete "guile" (package-inputs guile-gcrypt)))))) ,@(alist-delete "guile" (package-inputs guile-gcrypt))))))
(define-public guile3.0-gcrypt (define-public guile2.2-gcrypt
(package (package
(inherit guile-gcrypt) (inherit guile-gcrypt)
(name "guile3.0-gcrypt") (name "guile2.2-gcrypt")
(native-inputs
`(("guile" ,guile-next)
,@(alist-delete "guile" (package-native-inputs guile-gcrypt))))
(inputs (inputs
`(("guile" ,guile-next) `(("guile" ,guile-2.2)
,@(alist-delete "guile" (package-inputs guile-gcrypt)))))) ,@(alist-delete "guile" (package-inputs guile-gcrypt))))))
(define-public guile3.0-gcrypt
(deprecated-package "guile3.0-gcrypt" guile-gcrypt))
(define-public python-gpg (define-public python-gpg
(package (package
(name "python-gpg") (name "python-gpg")

59
gnu/packages/gtk.scm
View file

@ -875,10 +875,14 @@ application suites.")
"#include <libguile.h>\n#include <string.h>\n")) "#include <libguile.h>\n#include <string.h>\n"))
#t))))) #t)))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments
;; Uses of 'scm_t_uint8' & co. are deprecated; don't stop the build
;; because of them.
'(#:configure-flags '("--disable-Werror")))
(inputs (inputs
`(("guile-lib" ,guile-lib) `(("guile-lib" ,guile-lib)
("expat" ,expat) ("expat" ,expat)
("guile" ,guile-2.2))) ("guile" ,guile-3.0)))
(propagated-inputs (propagated-inputs
;; The .pc file refers to 'cairo'. ;; The .pc file refers to 'cairo'.
`(("cairo" ,cairo))) `(("cairo" ,cairo)))
@ -895,22 +899,19 @@ graphics library with all of the benefits of Scheme: memory management,
exceptions, macros, and a dynamic programming environment.") exceptions, macros, and a dynamic programming environment.")
(license license:lgpl3+))) (license license:lgpl3+)))
(define-public guile3.0-cairo (define-public guile2.2-cairo
(package (package
(inherit guile-cairo) (inherit guile-cairo)
(name "guile3.0-cairo") (name "guile2.2-cairo")
(arguments
(substitute-keyword-arguments (package-arguments guile-cairo)
((#:configure-flags flags ''())
;; Uses of 'scm_t_uint8' & co. are deprecated; don't stop the build
;; because of them.
`(cons "--disable-Werror" ,flags))))
(inputs (inputs
`(("guile" ,guile-3.0) `(("guile" ,guile-2.2)
("guile-lib" ,guile3.0-lib) ("guile-lib" ,guile2.2-lib)
,@(fold alist-delete (package-inputs guile-cairo) ,@(fold alist-delete (package-inputs guile-cairo)
'("guile" "guile-lib")))))) '("guile" "guile-lib"))))))
(define-public guile3.0-cairo
(deprecated-package "guile3.0-cairo" guile-cairo))
(define-public guile-rsvg (define-public guile-rsvg
;; Use a recent snapshot that supports Guile 2.2 and beyond. ;; Use a recent snapshot that supports Guile 2.2 and beyond.
(let ((commit "05c6a2fd67e4fea1a7c3ff776729dc931bae6678") (let ((commit "05c6a2fd67e4fea1a7c3ff776729dc931bae6678")
@ -947,7 +948,7 @@ exceptions, macros, and a dynamic programming environment.")
("automake" ,automake) ("automake" ,automake)
("libtool" ,libtool) ("libtool" ,libtool)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))
(inputs `(("guile" ,guile-2.2) (inputs `(("guile" ,guile-3.0)
("librsvg" ,librsvg) ("librsvg" ,librsvg)
("guile-lib" ,guile-lib))) ;for (unit-test) ("guile-lib" ,guile-lib))) ;for (unit-test)
(propagated-inputs `(("guile-cairo" ,guile-cairo))) (propagated-inputs `(("guile-cairo" ,guile-cairo)))
@ -958,16 +959,19 @@ images onto Cairo surfaces.")
(home-page "http://wingolog.org/projects/guile-rsvg/") (home-page "http://wingolog.org/projects/guile-rsvg/")
(license license:lgpl2.1+)))) (license license:lgpl2.1+))))
(define-public guile3.0-rsvg (define-public guile2.2-rsvg
(package (package
(inherit guile-rsvg) (inherit guile-rsvg)
(name "guile3.0-rsvg") (name "guile2.2-rsvg")
(inputs (inputs
`(("guile" ,guile-3.0) `(("guile" ,guile-2.2)
("guile-lib" ,guile3.0-lib) ("guile-lib" ,guile2.2-lib)
,@(fold alist-delete (package-inputs guile-rsvg) ,@(fold alist-delete (package-inputs guile-rsvg)
'("guile" "guile-lib")))) '("guile" "guile-lib"))))
(propagated-inputs `(("guile-cairo" ,guile3.0-cairo))))) (propagated-inputs `(("guile-cairo" ,guile2.2-cairo)))))
(define-public guile3.0-rsvg
(deprecated-package "guile3.0-rsvg" guile-rsvg))
(define-public guile-present (define-public guile-present
(package (package
@ -1013,7 +1017,7 @@ images onto Cairo surfaces.")
out "/lib/guile/" version "/site-ccache ")))) out "/lib/guile/" version "/site-ccache "))))
#t))))) #t)))))
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("guile" ,guile-2.2))) (inputs `(("guile" ,guile-3.0)))
(propagated-inputs (propagated-inputs
;; These are used by the (present …) modules. ;; These are used by the (present …) modules.
`(("guile-lib" ,guile-lib) `(("guile-lib" ,guile-lib)
@ -1029,15 +1033,18 @@ includes a tools to generate PDF presentations out of Org mode and Texinfo
documents.") documents.")
(license license:lgpl3+))) (license license:lgpl3+)))
(define-public guile3.0-present (define-public guile2.2-present
(package (package
(inherit guile-present) (inherit guile-present)
(name "guile3.0-present") (name "guile2.2-present")
(inputs `(("guile" ,guile-3.0))) (inputs `(("guile" ,guile-2.2)))
(propagated-inputs (propagated-inputs
`(("guile-lib" ,guile3.0-lib) `(("guile-lib" ,guile2.2-lib)
("guile-cairo" ,guile3.0-cairo) ("guile-cairo" ,guile2.2-cairo)
("guile-rsvg" ,guile3.0-rsvg))))) ("guile-rsvg" ,guile2.2-rsvg)))))
(define-public guile3.0-present
(deprecated-package "guile3.0-present" guile-present))
(define-public guile-gnome (define-public guile-gnome
(package (package
@ -1072,9 +1079,9 @@ documents.")
("glib" ,glib))) ("glib" ,glib)))
(inputs `(("guile" ,guile-2.2))) (inputs `(("guile" ,guile-2.2)))
(propagated-inputs (propagated-inputs
`(("guile-cairo" ,guile-cairo) `(("guile-cairo" ,guile2.2-cairo)
("g-wrap" ,g-wrap) ("g-wrap" ,g-wrap)
("guile-lib" ,guile-lib))) ("guile-lib" ,guile2.2-lib)))
(arguments (arguments
`(#:tests? #f ;FIXME `(#:tests? #f ;FIXME
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases

269
gnu/packages/guile-xyz.scm
View file

@ -523,7 +523,9 @@ Unix-style DSV format and RFC 4180 format.")
#t)))) #t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (modify-phases %standard-phases '(;; The code uses 'scm_t_uint64' et al., which are deprecated in 3.0.
#:configure-flags '("CFLAGS=-Wno-error=deprecated-declarations")
#:phases (modify-phases %standard-phases
(add-after 'install 'mode-guile-objects (add-after 'install 'mode-guile-objects
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; .go files are installed to "lib/guile/X.Y/cache". ;; .go files are installed to "lib/guile/X.Y/cache".
@ -540,7 +542,7 @@ Unix-style DSV format and RFC 4180 format.")
`(("texinfo" ,texinfo) `(("texinfo" ,texinfo)
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
(inputs (inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(synopsis "Lightweight concurrency facility for Guile") (synopsis "Lightweight concurrency facility for Guile")
(description (description
"Fibers is a Guile library that implements a a lightweight concurrency "Fibers is a Guile library that implements a a lightweight concurrency
@ -556,15 +558,14 @@ is not available for Guile 2.0.")
(home-page "https://github.com/wingo/fibers") (home-page "https://github.com/wingo/fibers")
(license license:lgpl3+))) (license license:lgpl3+)))
(define-public guile3.0-fibers (define-public guile2.0-fibers
(package (package
(inherit guile-fibers) (inherit guile-fibers)
(name "guile3.0-fibers") (name "guile2.2-fibers")
(arguments (inputs `(("guile" ,guile-2.2)))))
;; The code uses 'scm_t_uint64' et al., which are deprecated in 3.0.
`(#:configure-flags '("CFLAGS=-Wno-error=deprecated-declarations") (define-public guile3.0-fibers
,@(package-arguments guile-fibers))) (deprecated-package "guile3.0-fibers" guile-fibers))
(inputs `(("guile" ,guile-3.0)))))
(define-public guile-syntax-highlight (define-public guile-syntax-highlight
(package (package
@ -591,7 +592,7 @@ is not available for Guile 2.0.")
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
(inputs (inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(synopsis "General-purpose syntax highlighter for GNU Guile") (synopsis "General-purpose syntax highlighter for GNU Guile")
(description "Guile-syntax-highlight is a general-purpose syntax (description "Guile-syntax-highlight is a general-purpose syntax
highlighting library for GNU Guile. It can parse code written in various highlighting library for GNU Guile. It can parse code written in various
@ -600,11 +601,14 @@ HTML (via SXML) or any other format for rendering.")
(home-page "http://dthompson.us/projects/guile-syntax-highlight.html") (home-page "http://dthompson.us/projects/guile-syntax-highlight.html")
(license license:lgpl3+))) (license license:lgpl3+)))
(define-public guile3.0-syntax-highlight (define-public guile2.2-syntax-highlight
(package (package
(inherit guile-syntax-highlight) (inherit guile-syntax-highlight)
(name "guile3.0-syntax-highlight") (name "guile2.2-syntax-highlight")
(inputs `(("guile" ,guile-3.0))))) (inputs `(("guile" ,guile-2.2)))))
(define-public guile3.0-syntax-highlight
(deprecated-package "guile3.0-syntax-highlight" guile-syntax-highlight))
(define-public guile-sjson (define-public guile-sjson
(package (package
@ -692,18 +696,21 @@ using Guile's foreign function interface.")
(base32 "10mv8c63159r3qvwwdvsgnsvdg7nc2ghak85zapwqpv4ywrqp9zc")))) (base32 "10mv8c63159r3qvwwdvsgnsvdg7nc2ghak85zapwqpv4ywrqp9zc"))))
(build-system guile-build-system) (build-system guile-build-system)
(native-inputs (native-inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(home-page "https://gitlab.com/NalaGinrut/guile-colorized") (home-page "https://gitlab.com/NalaGinrut/guile-colorized")
(synopsis "Colorized REPL for Guile") (synopsis "Colorized REPL for Guile")
(description (description
"Guile-colorized provides you with a colorized REPL for GNU Guile.") "Guile-colorized provides you with a colorized REPL for GNU Guile.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public guile3.0-colorized (define-public guile2.2-colorized
(package (package
(inherit guile-colorized) (inherit guile-colorized)
(name "guile3.0-colorized") (name "guile2.2-colorized")
(native-inputs `(("guile" ,guile-next))))) (native-inputs `(("guile" ,guile-2.2)))))
(define-public guile3.0-colorized
(deprecated-package "guile3.0-colorized" guile-colorized))
(define-public guile-pfds (define-public guile-pfds
(package (package
@ -723,6 +730,14 @@ using Guile's foreign function interface.")
(arguments (arguments
'(#:source-directory "src" '(#:source-directory "src"
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-after 'unpack 'work-around-guile-bug
(lambda _
;; See bug #39210.
(substitute* '("fingertrees.sls"
"queues/private/condition.sls"
"deques/private/condition.sls")
(("&assertion") "&violation"))
#t))
(add-after 'unpack 'move-files-around (add-after 'unpack 'move-files-around
(lambda _ (lambda _
;; Move files under a pfds/ directory to reflect the ;; Move files under a pfds/ directory to reflect the
@ -756,7 +771,7 @@ using Guile's foreign function interface.")
(find-files "." "\\.sls$")) (find-files "." "\\.sls$"))
#t))))) #t)))))
(native-inputs (native-inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(synopsis "Purely functional data structures for Guile") (synopsis "Purely functional data structures for Guile")
(description (description
"This package provides purely functional data structures written in R6RS "This package provides purely functional data structures written in R6RS
@ -777,23 +792,19 @@ Vicare Scheme and IronScheme. Right now it contains:
@end itemize\n") @end itemize\n")
(license license:bsd-3))) (license license:bsd-3)))
(define-public guile3.0-pfds (define-public guile2.2-pfds
(package (package
(inherit guile-pfds) (inherit guile-pfds)
(name "guile3.0-pfds") (name "guile2.2-pfds")
(native-inputs `(("guile" ,guile-3.0))) (native-inputs `(("guile" ,guile-2.2)))
(arguments (arguments
(substitute-keyword-arguments (package-arguments guile-pfds) (substitute-keyword-arguments (package-arguments guile-pfds)
((#:phases phases) ((#:phases phases)
`(modify-phases ,phases `(modify-phases ,phases
(add-after 'unpack 'work-around-guile-bug (delete 'work-around-guile-bug)))))))
(lambda _
;; See bug #39210. (define-public guile3.0-pfds
(substitute* '("fingertrees.sls" (deprecated-package "guile3.0-pfds" guile-pfds))
"queues/private/condition.sls"
"deques/private/condition.sls")
(("&assertion") "&violation"))
#t))))))))
(define-public guile-aa-tree (define-public guile-aa-tree
(package (package
@ -847,7 +858,7 @@ convenient nested tree operations.")
(assoc-ref inputs "zeromq")))) (assoc-ref inputs "zeromq"))))
#t))))) #t)))))
(native-inputs (native-inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(inputs (inputs
`(("zeromq" ,zeromq))) `(("zeromq" ,zeromq)))
(home-page "https://github.com/jerry40/guile-simple-zmq") (home-page "https://github.com/jerry40/guile-simple-zmq")
@ -857,11 +868,14 @@ convenient nested tree operations.")
messaging library.") messaging library.")
(license license:gpl3+)))) (license license:gpl3+))))
(define-public guile3.0-simple-zmq (define-public guile2.2-simple-zmq
(package (package
(inherit guile-simple-zmq) (inherit guile-simple-zmq)
(name "guile3.0-simple-zmq") (name "guile2.2-simple-zmq")
(native-inputs `(("guile" ,guile-next))))) (native-inputs `(("guile" ,guile-2.2)))))
(define-public guile3.0-simple-zmq
(deprecated-package "guile3.0-simple-zmq" guile-simple-zmq))
(define-public jupyter-guile-kernel (define-public jupyter-guile-kernel
(let ((commit "a7db9245a886e104138474df46c3e88b95cff629") (let ((commit "a7db9245a886e104138474df46c3e88b95cff629")
@ -1068,7 +1082,7 @@ format.")
'(#:make-flags '(#:make-flags
'("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
(inputs (inputs
`(("guile" ,guile-2.2) `(("guile" ,guile-3.0)
("newt" ,newt))) ("newt" ,newt)))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
@ -1082,13 +1096,16 @@ Scheme by using Guile’s foreign function interface.")
(home-page "https://gitlab.com/mothacehe/guile-newt") (home-page "https://gitlab.com/mothacehe/guile-newt")
(license license:gpl3+))) (license license:gpl3+)))
(define-public guile3.0-newt (define-public guile2.2-newt
(package (package
(inherit guile-newt) (inherit guile-newt)
(name "guile3.0-newt") (name "guile2.2-newt")
(inputs `(("guile" ,guile-next) (inputs `(("guile" ,guile-next)
,@(alist-delete "guile" (package-inputs guile-newt)))))) ,@(alist-delete "guile" (package-inputs guile-newt))))))
(define-public guile3.0-newt
(deprecated-package "guile3.0-newt" guile-newt))
(define-public guile-mastodon (define-public guile-mastodon
(package (package
(name "guile-mastodon") (name "guile-mastodon")
@ -1149,7 +1166,7 @@ microblogging service.")
'(#:make-flags '(#:make-flags
'("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
(inputs (inputs
`(("guile" ,guile-2.2) `(("guile" ,guile-3.0)
("parted" ,parted))) ("parted" ,parted)))
(propagated-inputs (propagated-inputs
`(("guile-bytestructures" ,guile-bytestructures))) `(("guile-bytestructures" ,guile-bytestructures)))
@ -1165,14 +1182,17 @@ written in pure Scheme by using Guile's foreign function interface.")
(home-page "https://gitlab.com/mothacehe/guile-parted") (home-page "https://gitlab.com/mothacehe/guile-parted")
(license license:gpl3+))) (license license:gpl3+)))
(define-public guile3.0-parted (define-public guile2.2-parted
(package (package
(inherit guile-parted) (inherit guile-parted)
(name "guile3.0-parted") (name "guile2.2-parted")
(inputs `(("guile" ,guile-next) (inputs `(("guile" ,guile-next)
,@(alist-delete "guile" (package-inputs guile-parted)))) ,@(alist-delete "guile" (package-inputs guile-parted))))
(propagated-inputs (propagated-inputs
`(("guile-bytestructures" ,guile3.0-bytestructures))))) `(("guile-bytestructures" ,guile2.2-bytestructures)))))
(define-public guile3.0-parted
(deprecated-package "guile3.0-parted" guile-parted))
(define-public guile-xosd (define-public guile-xosd
(package (package
@ -1359,7 +1379,7 @@ PostgreSQL.")
("automake" ,automake) ("automake" ,automake)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))
(inputs `(("guile" ,guile-2.2))) (inputs `(("guile" ,guile-3.0)))
(synopsis (synopsis
"Guile application configuration parsing library.") "Guile application configuration parsing library.")
(description (description
@ -1374,13 +1394,16 @@ above command-line parameters.")
"https://gitlab.com/a-sassmannshausen/guile-config") "https://gitlab.com/a-sassmannshausen/guile-config")
(license license:gpl3+))) (license license:gpl3+)))
(define-public guile3.0-config (define-public guile2.2-config
(package (package
(inherit guile-config) (inherit guile-config)
(name "guile3.0-config") (name "guile2.2-config")
(inputs `(("guile" ,guile-next) (inputs `(("guile" ,guile-2.2)
,@(alist-delete "guile" (package-inputs guile-config)))))) ,@(alist-delete "guile" (package-inputs guile-config))))))
(define-public guile3.0-config
(deprecated-package "guile3.0-config" guile-config))
(define-public guile-hall (define-public guile-hall
(package (package
(name "guile-hall") (name "guile-hall")
@ -1447,7 +1470,7 @@ above command-line parameters.")
("automake" ,automake) ("automake" ,automake)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))
(inputs `(("guile" ,guile-2.2))) (inputs `(("guile" ,guile-3.0)))
(propagated-inputs (propagated-inputs
`(("guile-config" ,guile-config))) `(("guile-config" ,guile-config)))
(synopsis "Guile project tooling") (synopsis "Guile project tooling")
@ -1459,17 +1482,20 @@ provides tight coupling to Guix.")
(home-page "https://gitlab.com/a-sassmannshausen/guile-hall") (home-page "https://gitlab.com/a-sassmannshausen/guile-hall")
(license license:gpl3+))) (license license:gpl3+)))
(define-public guile3.0-hall (define-public guile2.2-hall
(package (package
(inherit guile-hall) (inherit guile-hall)
(name "guile3.0-hall") (name "guile2.2-hall")
(inputs `(("guile" ,guile-next) (inputs `(("guile" ,guile-2.2)
,@(alist-delete "guile" (package-inputs guile-hall)))) ,@(alist-delete "guile" (package-inputs guile-hall))))
(propagated-inputs (propagated-inputs
`(("guile-config" ,guile3.0-config) `(("guile-config" ,guile2.2-config)
,@(alist-delete "guile-config" ,@(alist-delete "guile-config"
(package-propagated-inputs guile-hall)))))) (package-propagated-inputs guile-hall))))))
(define-public guile3.0-hall
(deprecated-package "guile3.0-hall" guile-hall))
(define-public guile-ics (define-public guile-ics
(package (package
(name "guile-ics") (name "guile-ics")
@ -1499,7 +1525,7 @@ provides tight coupling to Guix.")
;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'. ;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'.
("gettext" ,gettext-minimal) ("gettext" ,gettext-minimal)
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
(inputs `(("guile" ,guile-2.2) ("which" ,which))) (inputs `(("guile" ,guile-3.0) ("which" ,which)))
(propagated-inputs `(("guile-lib" ,guile-lib))) (propagated-inputs `(("guile-lib" ,guile-lib)))
(home-page "https://github.com/artyom-poptsov/guile-ics") (home-page "https://github.com/artyom-poptsov/guile-ics")
(synopsis "Guile parser library for the iCalendar format") (synopsis "Guile parser library for the iCalendar format")
@ -1510,13 +1536,16 @@ pure Scheme. The library can be used to read and write iCalendar data.
The library is shipped with documentation in Info format and usage examples.") The library is shipped with documentation in Info format and usage examples.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public guile3.0-ics (define-public guile2.2-ics
(package (package
(inherit guile-ics) (inherit guile-ics)
(name "guile3.0-ics") (name "guile2.2-ics")
(inputs `(("guile" ,guile-3.0) (inputs `(("guile" ,guile-2.2)
,@(alist-delete "guile" (package-inputs guile-ics)))) ,@(alist-delete "guile" (package-inputs guile-ics))))
(propagated-inputs `(("guile-lib" ,guile3.0-lib))))) (propagated-inputs `(("guile-lib" ,guile2.2-lib)))))
(define-public guile3.0-ics
(deprecated-package "guile3.0-ics" guile-ics))
(define-public guile-wisp (define-public guile-wisp
(package (package
@ -1543,6 +1572,12 @@ The library is shipped with documentation in Info format and usage examples.")
(guix build emacs-utils)) (guix build emacs-utils))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'support-guile-3.0
(lambda _
(substitute* "configure"
(("_guile_versions_to_search=\"2.2")
"_guile_versions_to_search=\"3.0 2.2"))
#t))
(add-before 'configure 'patch-/usr/bin/env (add-before 'configure 'patch-/usr/bin/env
(lambda _ (lambda _
(substitute* "Makefile.in" (substitute* "Makefile.in"
@ -1581,7 +1616,7 @@ The library is shipped with documentation in Info format and usage examples.")
(assoc-ref emacs:%standard-phases 'make-autoloads))))) (assoc-ref emacs:%standard-phases 'make-autoloads)))))
(home-page "https://www.draketo.de/english/wisp") (home-page "https://www.draketo.de/english/wisp")
(inputs (inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(native-inputs (native-inputs
`(("emacs" ,emacs-minimal) `(("emacs" ,emacs-minimal)
("python" ,python) ("python" ,python)
@ -1592,21 +1627,14 @@ whitespace-significant language. It may be easier on the eyes for some
users and in some situations.") users and in some situations.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public guile3.0-wisp (define-public guile2.2-wisp
(package (package
(inherit guile-wisp) (inherit guile-wisp)
(name "guile3.0-wisp") (name "guile2.2-wisp")
(inputs `(("guile" ,guile-3.0))) (inputs `(("guile" ,guile-2.2)))))
(arguments
(substitute-keyword-arguments (package-arguments guile-wisp) (define-public guile3.0-wisp
((#:phases phases) (deprecated-package "guile3.0-wisp" guile-wisp))
`(modify-phases ,phases
(add-after 'unpack 'support-guile-3.0
(lambda _
(substitute* "configure"
(("_guile_versions_to_search=\"2.2")
"_guile_versions_to_search=\"3.0 2.2"))
#t))))))))
(define-public guile-sly (define-public guile-sly
(package (package
@ -1847,7 +1875,7 @@ library.")
$(libdir)/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n")) $(libdir)/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n"))
#t))))) #t)))))
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("guile" ,guile-2.2))) (inputs `(("guile" ,guile-3.0)))
(home-page "https://www.nongnu.org/guile-lib/") (home-page "https://www.nongnu.org/guile-lib/")
(synopsis "Collection of useful Guile Scheme modules") (synopsis "Collection of useful Guile Scheme modules")
(description (description
@ -1867,11 +1895,14 @@ for Guile\".")
(name "guile2.0-lib") (name "guile2.0-lib")
(inputs `(("guile" ,guile-2.0))))) (inputs `(("guile" ,guile-2.0)))))
(define-public guile3.0-lib (define-public guile2.2-lib
(package (package
(inherit guile-lib) (inherit guile-lib)
(name "guile3.0-lib") (name "guile2.2-lib")
(inputs `(("guile" ,guile-3.0))))) (inputs `(("guile" ,guile-2.2)))))
(define-public guile3.0-lib
(deprecated-package "guile3.0-lib" guile-lib))
(define-public guile-minikanren (define-public guile-minikanren
(package (package
@ -1888,7 +1919,7 @@ for Guile\".")
"0r50jlpzi940jlmxyy3ddqqwmj5r12gb4bcv0ssini9v8km13xz6")))) "0r50jlpzi940jlmxyy3ddqqwmj5r12gb4bcv0ssini9v8km13xz6"))))
(build-system guile-build-system) (build-system guile-build-system)
(native-inputs (native-inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(home-page "https://github.com/ijp/minikanren") (home-page "https://github.com/ijp/minikanren")
(synopsis "MiniKanren declarative logic system, packaged for Guile") (synopsis "MiniKanren declarative logic system, packaged for Guile")
(description (description
@ -1909,11 +1940,14 @@ See http://minikanren.org/ for more on miniKanren generally.")
(name "guile2.0-minikanren") (name "guile2.0-minikanren")
(native-inputs `(("guile" ,guile-2.0))))) (native-inputs `(("guile" ,guile-2.0)))))
(define-public guile3.0-minikanren (define-public guile2.2-minikanren
(package (package
(inherit guile-minikanren) (inherit guile-minikanren)
(name "guile3.0-minikanren") (name "guile2.2-minikanren")
(native-inputs `(("guile" ,guile-next))))) (native-inputs `(("guile" ,guile-2.2)))))
(define-public guile3.0-minikanren
(deprecated-package "guile3.0-minikanren" guile-minikanren))
(define-public guile-irregex (define-public guile-irregex
(package (package
@ -1946,7 +1980,7 @@ See http://minikanren.org/ for more on miniKanren generally.")
#t))) #t)))
#:source-directory "src")) #:source-directory "src"))
(native-inputs (native-inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(home-page "http://synthcode.com/scheme/irregex") (home-page "http://synthcode.com/scheme/irregex")
(synopsis "S-expression based regular expressions") (synopsis "S-expression based regular expressions")
(description (description
@ -1961,11 +1995,14 @@ inspired by the SCSH regular expression system.")
(name "guile2.0-irregex") (name "guile2.0-irregex")
(native-inputs `(("guile" ,guile-2.0))))) (native-inputs `(("guile" ,guile-2.0)))))
(define-public guile3.0-irregex (define-public guile2.2-irregex
(package (package
(inherit guile-irregex) (inherit guile-irregex)
(name "guile3.0-irregex") (name "guile2.2-irregex")
(native-inputs `(("guile" ,guile-next))))) (native-inputs `(("guile" ,guile-2.2)))))
(define-public guile3.0-irregex
(deprecated-package "guile3.0-irregex" guile-irregex))
(define-public haunt (define-public haunt
(package (package
@ -2031,9 +2068,10 @@ inspired by the SCSH regular expression system.")
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))
(inputs (inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(propagated-inputs (propagated-inputs
`(("guile-reader" ,guile-reader) ;; XXX: Guile-Reader is currently unavailable for Guile 2.2 so strip it.
`(;;("guile-reader" ,guile-reader)
("guile-commonmark" ,guile-commonmark))) ("guile-commonmark" ,guile-commonmark)))
(synopsis "Functional static site generator") (synopsis "Functional static site generator")
(description "Haunt is a static site generator written in Guile (description "Haunt is a static site generator written in Guile
@ -2042,14 +2080,14 @@ interface for reading articles in any format.")
(home-page "http://haunt.dthompson.us") (home-page "http://haunt.dthompson.us")
(license license:gpl3+))) (license license:gpl3+)))
(define-public guile3.0-haunt (define-public guile2.2-haunt
(package (package
(inherit haunt) (inherit haunt)
(name "guile3.0-haunt") (name "guile2.2-haunt")
(inputs `(("guile" ,guile-3.0))) (inputs `(("guile" ,guile-2.2)))
(propagated-inputs (propagated-inputs
;; XXX: Guile-Reader is currently unavailable for Guile 3.0 so strip it. `(("guile-reader" ,guile-reader)
`(("guile-commonmark" ,guile3.0-commonmark))))) ("guile-commonmark" ,guile2.2-commonmark)))))
(define-public guile2.0-haunt (define-public guile2.0-haunt
(package (package
@ -2057,6 +2095,9 @@ interface for reading articles in any format.")
(name "guile2.0-haunt") (name "guile2.0-haunt")
(inputs `(("guile" ,guile-2.0))))) (inputs `(("guile" ,guile-2.0)))))
(define-public guile3.0-haunt
(deprecated-package "guile3.0-haunt" haunt))
(define-public guile-redis (define-public guile-redis
(package (package
(name "guile-redis") (name "guile-redis")
@ -2112,7 +2153,7 @@ key-value cache and store.")
#t)))) #t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
(synopsis "CommonMark parser for Guile") (synopsis "CommonMark parser for Guile")
@ -2125,11 +2166,11 @@ is no support for parsing block and inline level HTML.")
(home-page "https://github.com/OrangeShark/guile-commonmark") (home-page "https://github.com/OrangeShark/guile-commonmark")
(license license:lgpl3+))) (license license:lgpl3+)))
(define-public guile3.0-commonmark (define-public guile2.2-commonmark
(package (package
(inherit guile-commonmark) (inherit guile-commonmark)
(name "guile3.0-commonmark") (name "guile2.2-commonmark")
(inputs `(("guile" ,guile-3.0))))) (inputs `(("guile" ,guile-2.2)))))
(define-public guile2.0-commonmark (define-public guile2.0-commonmark
(package (package
@ -2137,6 +2178,9 @@ is no support for parsing block and inline level HTML.")
(name "guile2.0-commonmark") (name "guile2.0-commonmark")
(inputs `(("guile" ,guile-2.0))))) (inputs `(("guile" ,guile-2.0)))))
(define-public guile3.0-commonmark
(deprecated-package "guile3.0-commonmark" guile-commonmark))
(define-public mcron (define-public mcron
(package (package
(name "mcron") (name "mcron")
@ -2174,7 +2218,7 @@ is no support for parsing block and inline level HTML.")
#t))))) #t)))))
(native-inputs `(("pkg-config" ,pkg-config) (native-inputs `(("pkg-config" ,pkg-config)
("tzdata" ,tzdata-for-tests))) ("tzdata" ,tzdata-for-tests)))
(inputs `(("guile" ,guile-2.2))) (inputs `(("guile" ,guile-3.0)))
(home-page "https://www.gnu.org/software/mcron/") (home-page "https://www.gnu.org/software/mcron/")
(synopsis "Run jobs at scheduled times") (synopsis "Run jobs at scheduled times")
(description (description
@ -2184,11 +2228,14 @@ Guile, so its configuration can be written in Scheme; the original cron
format is also supported.") format is also supported.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public guile3.0-mcron (define-public guile2.2-mcron
(package (package
(inherit mcron) (inherit mcron)
(name "guile3.0-mcron") (name "guile2.2-mcron")
(inputs `(("guile" ,guile-3.0))))) (inputs `(("guile" ,guile-2.2)))))
(define-public guile3.0-mcron
(deprecated-package "guile3.0-mcron" mcron))
(define-public mcron2 (define-public mcron2
;; This was mthl's mcron development branch, and it became mcron 1.1. ;; This was mthl's mcron development branch, and it became mcron 1.1.
@ -2211,7 +2258,7 @@ format is also supported.")
"1ydvw9dvssdvlvhh1dr8inyzy2x6m41qgp8hsivca1xysr4gc23a")))) "1ydvw9dvssdvlvhh1dr8inyzy2x6m41qgp8hsivca1xysr4gc23a"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
("automake" ,automake) ("automake" ,automake)
@ -2225,11 +2272,15 @@ format is also supported.")
The picture values can directly be displayed in Geiser.") The picture values can directly be displayed in Geiser.")
(license license:lgpl3+)))) (license license:lgpl3+))))
(define-public guile3.0-picture-language (define-public guile2.2-picture-language
(package (package
(inherit guile-picture-language) (inherit guile-picture-language)
(name "guile3.0-picture-language") (name "guile2.2-picture-language")
(inputs `(("guile" ,guile-3.0))))) (inputs `(("guile" ,guile-2.2)))))
(define-public guile3.0-picture-language
(deprecated-package "guile3.0-picture-language"
guile-picture-language))
(define-public guile-studio (define-public guile-studio
(package (package
@ -2526,7 +2577,7 @@ list of components. This module takes care of that for you.")
("gtk+" ,gtk+) ("gtk+" ,gtk+)
("guile-lib" ,guile-lib) ("guile-lib" ,guile-lib)
("webkitgtk" ,webkitgtk))) ("webkitgtk" ,webkitgtk)))
(inputs `(("guile" ,guile-2.2))) (inputs `(("guile" ,guile-3.0)))
(home-page "https://github.com/spk121/guile-gi") (home-page "https://github.com/spk121/guile-gi")
(synopsis "GObject bindings for Guile") (synopsis "GObject bindings for Guile")
(description (description
@ -2535,14 +2586,17 @@ libraries, such as GTK+3. Its README comes with the disclaimer: This is
pre-alpha code.") pre-alpha code.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public guile3.0-gi (define-public guile2.2-gi
(package (package
(inherit guile-gi) (inherit guile-gi)
(name "guile3.0-gi") (name "guile2.2-gi")
(native-inputs (native-inputs
`(("guile" ,guile-3.0) `(("guile" ,guile-2.2)
,@(package-native-inputs guile-gi))))) ,@(package-native-inputs guile-gi)))))
(define-public guile3.0-gi
(deprecated-package "guile3.0-gi" guile-gi))
(define-public guile-srfi-159 (define-public guile-srfi-159
(let ((commit "1bd98abda2ae4ef8f36761a167903e55c6bda7bb") (let ((commit "1bd98abda2ae4ef8f36761a167903e55c6bda7bb")
(revision "0")) (revision "0"))
@ -3012,7 +3066,7 @@ the style of the Node Package Manager (NPM).")
(rename-file "private" "hashing/private") (rename-file "private" "hashing/private")
#t))))) #t)))))
(native-inputs (native-inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(synopsis "Cryprographic hash functions implemented in Scheme") (synopsis "Cryprographic hash functions implemented in Scheme")
(description (description
"The @code{(hashing @dots{})} modules implement cryptographic hash "The @code{(hashing @dots{})} modules implement cryptographic hash
@ -3020,13 +3074,16 @@ functions in pure R6RS Scheme: CRC, HMAC, MD5, SHA-1, and SHA-2 (SHA-256,
SHA-512).") SHA-512).")
(license license:expat))) (license license:expat)))
(define-public guile3.0-hashing (define-public guile2.2-hashing
(package (package
(inherit guile-hashing) (inherit guile-hashing)
(name "guile3.0-hashing") (name "guile2.2-hashing")
(native-inputs (native-inputs
`(("guile" ,guile-next))))) `(("guile" ,guile-next)))))
(define-public guile3.0-hashing
(deprecated-package "guile3.0-hashing" guile-hashing))
(define-public guile-webutils (define-public guile-webutils
(let ((commit "8541904f761066dc9c27b1153e9a838be9a55299") (let ((commit "8541904f761066dc9c27b1153e9a838be9a55299")
(revision "0")) (revision "0"))

96
gnu/packages/guile.scm
View file

@ -252,15 +252,6 @@ without requiring the source code to be rewritten.")
(define-deprecated guile-2.2/bug-fix guile-2.2) (define-deprecated guile-2.2/bug-fix guile-2.2)
(define-public guile-2.2/fixed
;; A package of Guile 2.2 that's rarely changed. It is the one used
;; in the `base' module, and thus changing it entails a full rebuild.
(package
(inherit guile-2.2)
(properties '((hidden? . #t) ;people should install 'guile-2.2'
(timeout . 72000) ;20 hours
(max-silent-time . 36000))))) ;10 hours (needed on ARM
; when heavily loaded)
(define-public guile-2.2.4 (define-public guile-2.2.4
(package/inherit (package/inherit
guile-2.2 guile-2.2
@ -277,7 +268,7 @@ without requiring the source code to be rewritten.")
;; This is the latest Guile stable version. ;; This is the latest Guile stable version.
(package (package
(inherit guile-2.2) (inherit guile-2.2)
(name "guile-next") ;to be renamed to "guile" (name "guile")
(version "3.0.1") (version "3.0.1")
(source (origin (source (origin
(inherit (package-source guile-2.2)) (inherit (package-source guile-2.2))
@ -300,6 +291,16 @@ without requiring the source code to be rewritten.")
(define-public guile-next guile-3.0) (define-public guile-next guile-3.0)
(define-public guile-3.0/fixed
;; 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.
(package
(inherit guile-3.0)
(properties '((hidden? . #t) ;people should install 'guile-2.2'
(timeout . 72000) ;20 hours
(max-silent-time . 36000))))) ;10 hours (needed on ARM
; when heavily loaded)
(define* (make-guile-readline guile #:optional (name "guile-readline")) (define* (make-guile-readline guile #:optional (name "guile-readline"))
(package (package
(name name) (name name)
@ -377,9 +378,32 @@ GNU@tie{}Guile. Use the @code{(ice-9 readline)} module and call its
(package-input-rewriting `((,guile-2.2 . ,guile-2.0)) (package-input-rewriting `((,guile-2.2 . ,guile-2.0))
(guile-variant-package-name "guile2.0"))) (guile-variant-package-name "guile2.0")))
(define package-for-guile-3.0 (define package-for-guile-2.2
(package-input-rewriting `((,guile-2.2 . ,guile-next)) (package-input-rewriting `((,guile-3.0 . ,guile-2.2))
(guile-variant-package-name "guile3.0"))) (guile-variant-package-name "guile2.2")))
(define-syntax define-deprecated-guile3.0-package
(lambda (s)
"Define a deprecated package alias for \"guile3.0-something\"."
(syntax-case s ()
((_ name)
(and (identifier? #'name)
(string-prefix? "guile3.0-" (symbol->string (syntax->datum
#'name))))
(let ((->guile (lambda (str)
(let ((base (string-drop str
(string-length "guile3.0-"))))
(string-append "guile-" base)))))
(with-syntax ((package-name (symbol->string (syntax->datum #'name)))
(package
(datum->syntax
#'name
(string->symbol
(->guile (symbol->string (syntax->datum #'name)))))))
#'(begin
(define-deprecated name package
(deprecated-package package-name package))
(export name))))))))
(define-public guile-for-guile-emacs (define-public guile-for-guile-emacs
(package (inherit guile-2.2) (package (inherit guile-2.2)
@ -474,10 +498,16 @@ specification. These are the main features:
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"14m6b6g2maw0mkvfm4x63rqb54vgbpn1gcqs715ijw4bikfzlqfz")))))) "14m6b6g2maw0mkvfm4x63rqb54vgbpn1gcqs715ijw4bikfzlqfz"))))
(native-inputs `(("pkg-config" ,pkg-config)
("guile" ,guile-3.0)))
(inputs `(("guile" ,guile-3.0)))))
(define-public guile2.2-json
(package-for-guile-2.2 guile-json-3))
(define-public guile3.0-json (define-public guile3.0-json
(package-for-guile-3.0 guile-json-3)) (deprecated-package "guile3.0-json" guile-json-3))
;; There are two guile-gdbm packages, one using the FFI and one with ;; There are two guile-gdbm packages, one using the FFI and one with
;; direct C bindings, hence the verbose name. ;; direct C bindings, hence the verbose name.
@ -518,7 +548,7 @@ specification. These are the main features:
(assoc-ref inputs "gdbm")))) (assoc-ref inputs "gdbm"))))
#t))))) #t)))))
(native-inputs (native-inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(inputs (inputs
`(("gdbm" ,gdbm))) `(("gdbm" ,gdbm)))
(home-page "https://github.com/ijp/guile-gdbm") (home-page "https://github.com/ijp/guile-gdbm")
@ -531,8 +561,10 @@ Guile's foreign function interface.")
(define-public guile2.0-gdbm-ffi (define-public guile2.0-gdbm-ffi
(package-for-guile-2.0 guile-gdbm-ffi)) (package-for-guile-2.0 guile-gdbm-ffi))
(define-public guile3.0-gdbm-ffi (define-public guile2.2-gdbm-ffi
(package-for-guile-3.0 guile-gdbm-ffi)) (package-for-guile-2.2 guile-gdbm-ffi))
(define-deprecated-guile3.0-package guile3.0-gdbm-ffi)
(define-public guile-sqlite3 (define-public guile-sqlite3
(package (package
@ -565,7 +597,7 @@ Guile's foreign function interface.")
("guile" ,guile-2.2) ("guile" ,guile-2.2)
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
(inputs (inputs
`(("guile" ,guile-2.2) `(("guile" ,guile-3.0)
("sqlite" ,sqlite))) ("sqlite" ,sqlite)))
(synopsis "Access SQLite databases from Guile") (synopsis "Access SQLite databases from Guile")
(description (description
@ -575,8 +607,10 @@ Guile's foreign function interface.")
(define-public guile2.0-sqlite3 (define-public guile2.0-sqlite3
(package-for-guile-2.0 guile-sqlite3)) (package-for-guile-2.0 guile-sqlite3))
(define-public guile3.0-sqlite3 (define-public guile2.2-sqlite3
(package-for-guile-3.0 guile-sqlite3)) (package-for-guile-2.2 guile-sqlite3))
(define-deprecated-guile3.0-package guile3.0-sqlite3)
(define-public guile-bytestructures (define-public guile-bytestructures
(package (package
@ -608,9 +642,9 @@ Guile's foreign function interface.")
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
("automake" ,automake) ("automake" ,automake)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("guile" ,guile-2.2))) ("guile" ,guile-3.0)))
(inputs (inputs
`(("guile" ,guile-2.2))) `(("guile" ,guile-3.0)))
(synopsis "Structured access to bytevector contents for Guile") (synopsis "Structured access to bytevector contents for Guile")
(description (description
"Guile bytestructures offers a system imitating the type system "Guile bytestructures offers a system imitating the type system
@ -624,8 +658,10 @@ type system, elevating types to first-class status.")
(define-public guile2.0-bytestructures (define-public guile2.0-bytestructures
(package-for-guile-2.0 guile-bytestructures)) (package-for-guile-2.0 guile-bytestructures))
(define-public guile3.0-bytestructures (define-public guile2.2-bytestructures
(package-for-guile-3.0 guile-bytestructures)) (package-for-guile-2.2 guile-bytestructures))
(define-deprecated-guile3.0-package guile3.0-bytestructures)
(define-public guile-git (define-public guile-git
(package (package
@ -643,10 +679,10 @@ type system, elevating types to first-class status.")
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("guile" ,guile-2.2) ("guile" ,guile-3.0)
("guile-bytestructures" ,guile-bytestructures))) ("guile-bytestructures" ,guile-bytestructures)))
(inputs (inputs
`(("guile" ,guile-2.2) `(("guile" ,guile-3.0)
("libgit2" ,libgit2))) ("libgit2" ,libgit2)))
(propagated-inputs (propagated-inputs
`(("guile-bytestructures" ,guile-bytestructures))) `(("guile-bytestructures" ,guile-bytestructures)))
@ -656,8 +692,8 @@ type system, elevating types to first-class status.")
manipulate repositories of the Git version control system.") manipulate repositories of the Git version control system.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public guile3.0-git (define-public guile2.2-git
(package-for-guile-3.0 guile-git)) (package-for-guile-2.2 guile-git))
(define-public guile2.0-git (define-public guile2.0-git
(let ((base (package-for-guile-2.0 guile-git))) (let ((base (package-for-guile-2.0 guile-git)))
@ -670,5 +706,7 @@ manipulate repositories of the Git version control system.")
,@(srfi-1:alist-delete "libgit2" ,@(srfi-1:alist-delete "libgit2"
(package-inputs base))))))) (package-inputs base)))))))
(define-deprecated-guile3.0-package guile3.0-git)
;;; guile.scm ends here ;;; guile.scm ends here

11
gnu/packages/mail.scm
View file

@ -222,7 +222,7 @@
`(("dejagnu" ,dejagnu) `(("dejagnu" ,dejagnu)
("m4" ,m4) ("m4" ,m4)
("texinfo" ,texinfo) ("texinfo" ,texinfo)
("guile" ,guile-2.2) ("guile" ,guile-3.0)
("gsasl" ,gsasl) ("gsasl" ,gsasl)
("gnutls" ,gnutls) ("gnutls" ,gnutls)
("ncurses" ,ncurses) ("ncurses" ,ncurses)
@ -246,14 +246,17 @@ software.")
;; Libraries are under LGPLv3+, and programs under GPLv3+. ;; Libraries are under LGPLv3+, and programs under GPLv3+.
(list gpl3+ lgpl3+)))) (list gpl3+ lgpl3+))))
(define-public guile3.0-mailutils (define-public guile2.2-mailutils
(package (package
(inherit mailutils) (inherit mailutils)
(name "guile3.0-mailutils") (name "guile2.2-mailutils")
(inputs (inputs
`(("guile" ,guile-3.0) `(("guile" ,guile-2.2)
,@(alist-delete "guile" (package-inputs mailutils)))))) ,@(alist-delete "guile" (package-inputs mailutils))))))
(define-public guile3.0-mailutils
(deprecated-package "guile3.0-mailutils" mailutils))
(define-public nullmailer (define-public nullmailer
(package (package
(name "nullmailer") (name "nullmailer")

63
gnu/packages/package-management.scm
View file

@ -307,7 +307,7 @@
("sqlite" ,sqlite) ("sqlite" ,sqlite)
("libgcrypt" ,libgcrypt) ("libgcrypt" ,libgcrypt)
("guile" ,guile-2.2) ("guile" ,guile-3.0)
;; Some of the tests use "unshare" when it is available. ;; Some of the tests use "unshare" when it is available.
("util-linux" ,util-linux) ("util-linux" ,util-linux)
@ -328,7 +328,7 @@
("glibc-utf8-locales" ,glibc-utf8-locales))) ("glibc-utf8-locales" ,glibc-utf8-locales)))
(propagated-inputs (propagated-inputs
`(("gnutls" ,gnutls) `(("gnutls" ,guile3.0-gnutls)
("guile-gcrypt" ,guile-gcrypt) ("guile-gcrypt" ,guile-gcrypt)
("guile-json" ,guile-json-3) ("guile-json" ,guile-json-3)
("guile-sqlite3" ,guile-sqlite3) ("guile-sqlite3" ,guile-sqlite3)
@ -360,7 +360,7 @@ the Nix package manager.")
(fold alist-delete (package-native-inputs guix) (fold alist-delete (package-native-inputs guix)
'("po4a" "graphviz" "help2man"))) '("po4a" "graphviz" "help2man")))
(inputs (inputs
`(("gnutls" ,gnutls) `(("gnutls" ,guile3.0-gnutls)
("guile-git" ,guile-git) ("guile-git" ,guile-git)
("guile-json" ,guile-json-3) ("guile-json" ,guile-json-3)
("guile-gcrypt" ,guile-gcrypt) ("guile-gcrypt" ,guile-gcrypt)
@ -408,31 +408,34 @@ the Nix package manager.")
(define-public guile2.0-guix (define-public guile2.0-guix
(deprecated-package "guile2.0-guix" guix)) (deprecated-package "guile2.0-guix" guix))
(define-public guile3.0-guix (define-public guile2.2-guix
(package (package
(inherit guix) (inherit guix)
(name "guile3.0-guix") (name "guile2.2-guix")
(native-inputs (native-inputs
`(("guile" ,guile-3.0) `(("guile" ,guile-2.2)
("gnutls" ,guile3.0-gnutls) ("gnutls" ,guile2.2-gnutls)
("guile-gcrypt" ,guile3.0-gcrypt) ("guile-gcrypt" ,guile2.2-gcrypt)
("guile-json" ,guile3.0-json) ("guile-json" ,guile2.2-json)
("guile-sqlite3" ,guile3.0-sqlite3) ("guile-sqlite3" ,guile2.2-sqlite3)
("guile-ssh" ,guile3.0-ssh) ("guile-ssh" ,guile2.2-ssh)
("guile-git" ,guile3.0-git) ("guile-git" ,guile2.2-git)
,@(fold alist-delete (package-native-inputs guix) ,@(fold alist-delete (package-native-inputs guix)
'("guile" "gnutls" "guile-gcrypt" "guile-json" '("guile" "gnutls" "guile-gcrypt" "guile-json"
"guile-sqlite3" "guile-ssh" "guile-git")))) "guile-sqlite3" "guile-ssh" "guile-git"))))
(inputs (inputs
`(("guile" ,guile-3.0) `(("guile" ,guile-2.2)
,@(alist-delete "guile" (package-inputs guix)))) ,@(alist-delete "guile" (package-inputs guix))))
(propagated-inputs (propagated-inputs
`(("gnutls" ,guile3.0-gnutls) `(("gnutls" ,gnutls)
("guile-gcrypt" ,guile3.0-gcrypt) ("guile-gcrypt" ,guile2.2-gcrypt)
("guile-json" ,guile3.0-json) ("guile-json" ,guile2.2-json)
("guile-sqlite3" ,guile3.0-sqlite3) ("guile-sqlite3" ,guile2.2-sqlite3)
("guile-ssh" ,guile3.0-ssh) ("guile-ssh" ,guile2.2-ssh)
("guile-git" ,guile3.0-git))))) ("guile-git" ,guile2.2-git)))))
(define-public guile3.0-guix
(deprecated-package "guile3.0-guix" guix))
(define-public guix-minimal (define-public guix-minimal
;; A version of Guix which is built with the minimal set of dependencies, as ;; A version of Guix which is built with the minimal set of dependencies, as
@ -837,12 +840,12 @@ written entirely in Python.")))
(inputs (inputs
`(("guile" ,guile-3.0))) `(("guile" ,guile-3.0)))
(propagated-inputs (propagated-inputs
`(("guix" ,guile3.0-guix) `(("guix" ,guix)
("guile-commonmark" ,guile3.0-commonmark) ("guile-commonmark" ,guile-commonmark)
("guile-gcrypt" ,guile3.0-gcrypt) ("guile-gcrypt" ,guile-gcrypt)
("guile-pfds" ,guile3.0-pfds) ("guile-pfds" ,guile-pfds)
("guile-syntax-highlight" ,guile3.0-syntax-highlight) ("guile-syntax-highlight" ,guile-syntax-highlight)
("guile-wisp" ,guile3.0-wisp))) ("guile-wisp" ,guile-wisp)))
(home-page "https://workflows.guix.info") (home-page "https://workflows.guix.info")
(synopsis "Workflow management extension for GNU Guix") (synopsis "Workflow management extension for GNU Guix")
(description "The @dfn{Guix Workflow Language} (GWL) provides an (description "The @dfn{Guix Workflow Language} (GWL) provides an
@ -867,6 +870,14 @@ environments.")
(sha256 (sha256
(base32 (base32
"01z7jjkc7r7lj6637rcgpz40v8xqqyfp6871h94yvcnwm7zy9h1n")) "01z7jjkc7r7lj6637rcgpz40v8xqqyfp6871h94yvcnwm7zy9h1n"))
(modules '((guix build utils)))
(snippet
'(begin
;; Allow builds with Guile 3.0.
(substitute* "configure.ac"
(("^GUILE_PKG.*")
"GUILE_PKG([3.0 2.2])\n"))
#t))
(file-name (string-append "guix-jupyter-" version "-checkout")))) (file-name (string-append "guix-jupyter-" version "-checkout"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
@ -925,7 +936,7 @@ environments.")
("python-ipykernel" ,python-ipykernel))) ("python-ipykernel" ,python-ipykernel)))
(inputs (inputs
`(("guix" ,guix) `(("guix" ,guix)
("guile" ,guile-2.2))) ("guile" ,guile-3.0)))
(propagated-inputs (propagated-inputs
`(("guile-json" ,guile-json-3) `(("guile-json" ,guile-json-3)
("guile-simple-zmq" ,guile-simple-zmq) ("guile-simple-zmq" ,guile-simple-zmq)

13
gnu/packages/plotutils.scm
View file

@ -112,7 +112,7 @@ scientific data.")
#t)))) #t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("guile" ,guile-2.2))) (inputs `(("guile" ,guile-3.0)))
(propagated-inputs `(("guile-cairo" ,guile-cairo))) (propagated-inputs `(("guile-cairo" ,guile-cairo)))
(home-page "http://wingolog.org/software/guile-charting/") (home-page "http://wingolog.org/software/guile-charting/")
(synopsis "Create charts and graphs in Guile") (synopsis "Create charts and graphs in Guile")
@ -121,12 +121,15 @@ scientific data.")
using the Cairo drawing library.") using the Cairo drawing library.")
(license license:lgpl2.1+))) (license license:lgpl2.1+)))
(define-public guile3.0-charting (define-public guile2.2-charting
(package (package
(inherit guile-charting) (inherit guile-charting)
(name "guile3.0-charting") (name "guile2.2-charting")
(inputs `(("guile" ,guile-3.0))) (inputs `(("guile" ,guile-2.2)))
(propagated-inputs `(("guile-cairo" ,guile3.0-cairo))))) (propagated-inputs `(("guile-cairo" ,guile2.2-cairo)))))
(define-public guile3.0-charting
(deprecated-package "guile3.0-charting" guile-charting))
(define-public ploticus (define-public ploticus
(package (package

15
gnu/packages/ssh.scm
View file

@ -301,8 +301,8 @@ Additionally, various channel-specific options can be negotiated.")
("texinfo" ,texinfo) ("texinfo" ,texinfo)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("which" ,which) ("which" ,which)
("guile" ,guile-2.2))) ;needed when cross-compiling. ("guile" ,guile-3.0))) ;needed when cross-compiling.
(inputs `(("guile" ,guile-2.2) (inputs `(("guile" ,guile-3.0)
("libssh" ,libssh) ("libssh" ,libssh)
("libgcrypt" ,libgcrypt))) ("libgcrypt" ,libgcrypt)))
(synopsis "Guile bindings to libssh") (synopsis "Guile bindings to libssh")
@ -322,16 +322,19 @@ libssh library.")
(inputs `(("guile" ,guile-2.0) (inputs `(("guile" ,guile-2.0)
,@(alist-delete "guile" (package-inputs guile-ssh)))))) ,@(alist-delete "guile" (package-inputs guile-ssh))))))
(define-public guile3.0-ssh (define-public guile2.2-ssh
(package (package
(inherit guile-ssh) (inherit guile-ssh)
(name "guile3.0-ssh") (name "guile2.2-ssh")
(native-inputs (native-inputs
`(("guile" ,guile-next) ;needed when cross-compiling. `(("guile" ,guile-2.2) ;needed when cross-compiling.
,@(alist-delete "guile" (package-native-inputs guile-ssh)))) ,@(alist-delete "guile" (package-native-inputs guile-ssh))))
(inputs `(("guile" ,guile-next) (inputs `(("guile" ,guile-2.2)
,@(alist-delete "guile" (package-inputs guile-ssh)))))) ,@(alist-delete "guile" (package-inputs guile-ssh))))))
(define-public guile3.0-ssh
(deprecated-package "guile3.0-ssh" guile-ssh))
(define-public corkscrew (define-public corkscrew
(package (package
(name "corkscrew") (name "corkscrew")

2
gnu/packages/version-control.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com> ;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>

4
gnu/packages/vpn.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013, 2016, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2016, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2015 Jeff Mickey <j@codemac.net> ;;; Copyright © 2015 Jeff Mickey <j@codemac.net>
;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
@ -136,7 +136,7 @@ Only \"Universal TUN/TAP device driver support\" is needed in the kernel.")
(base32 (base32
"1g41yarz2bl0f73kbjqnywr485ghanbp7nmspklfb0n07yp0z6ak")))) "1g41yarz2bl0f73kbjqnywr485ghanbp7nmspklfb0n07yp0z6ak"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs `(("guile" ,guile-2.2) ; for the wrapper scripts (inputs `(("guile" ,guile-3.0) ; for the wrapper scripts
("coreutils" ,coreutils) ("coreutils" ,coreutils)
("grep" ,grep) ("grep" ,grep)
("iproute2" ,iproute) ; for ‘ip’ ("iproute2" ,iproute) ; for ‘ip’

2
gnu/packages/web.scm
View file

@ -7162,7 +7162,7 @@ compressed JSON header blocks.
(inputs (inputs
`(("guix" ,guix))) `(("guix" ,guix)))
(propagated-inputs (propagated-inputs
`(("guile" ,guile-2.2) `(("guile" ,guile-3.0)
("guile-commonmark" ,guile-commonmark) ("guile-commonmark" ,guile-commonmark)
("guile-json" ,guile-json-3))) ("guile-json" ,guile-json-3)))
(home-page "https://github.com/UMCUGenetics/hpcguix-web") (home-page "https://github.com/UMCUGenetics/hpcguix-web")

4
guix/gexp.scm
View file

@ -1553,12 +1553,12 @@ TARGET, a GNU triplet."
;;; ;;;
(define (default-guile) (define (default-guile)
;; Lazily resolve 'guile-2.2' (not 'guile-final' because this is for ;; Lazily resolve 'guile-3.0' (not 'guile-final' because this is for
;; programs returned by 'program-file' and we don't want to keep references ;; programs returned by 'program-file' and we don't want to keep references
;; to several Guile packages). This module must not refer to (gnu …) ;; to several Guile packages). This module must not refer to (gnu …)
;; modules directly, to avoid circular dependencies, hence this hack. ;; modules directly, to avoid circular dependencies, hence this hack.
(module-ref (resolve-interface '(gnu packages guile)) (module-ref (resolve-interface '(gnu packages guile))
'guile-2.2)) 'guile-3.0))
(define* (load-path-expression modules #:optional (path %load-path) (define* (load-path-expression modules #:optional (path %load-path)
#:key (extensions '()) system target) #:key (extensions '()) system target)

10
guix/self.scm
View file

@ -49,11 +49,11 @@
(module-ref (resolve-interface module) variable)))) (module-ref (resolve-interface module) variable))))
(match-lambda (match-lambda
("guile" (ref '(gnu packages guile) 'guile-3.0)) ("guile" (ref '(gnu packages guile) 'guile-3.0))
("guile-json" (ref '(gnu packages guile) 'guile3.0-json)) ("guile-json" (ref '(gnu packages guile) 'guile-json-3))
("guile-ssh" (ref '(gnu packages ssh) 'guile3.0-ssh)) ("guile-ssh" (ref '(gnu packages ssh) 'guile-ssh))
("guile-git" (ref '(gnu packages guile) 'guile3.0-git)) ("guile-git" (ref '(gnu packages guile) 'guile-git))
("guile-sqlite3" (ref '(gnu packages guile) 'guile3.0-sqlite3)) ("guile-sqlite3" (ref '(gnu packages guile) 'guile-sqlite3))
("guile-gcrypt" (ref '(gnu packages gnupg) 'guile3.0-gcrypt)) ("guile-gcrypt" (ref '(gnu packages gnupg) 'guile-gcrypt))
("gnutls" (ref '(gnu packages tls) 'guile3.0-gnutls)) ("gnutls" (ref '(gnu packages tls) 'guile3.0-gnutls))
("zlib" (ref '(gnu packages compression) 'zlib)) ("zlib" (ref '(gnu packages compression) 'zlib))
("lzlib" (ref '(gnu packages compression) 'lzlib)) ("lzlib" (ref '(gnu packages compression) 'lzlib))