mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 22:08:16 -05:00
gnu: guile-next: Reintroduce as a 3.0.x snapshot.
* gnu/packages/guile.scm (guile-next): Rewrite as a 3.0.x snapshot.
This commit is contained in:
parent
07f77812c4
commit
973c6f18eb
1 changed files with 40 additions and 4 deletions
|
@ -1,5 +1,5 @@
|
|||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2014 Cyril Roelandt <tipecaml@gmail.com>
|
||||
;;; Copyright © 2014, 2016, 2018 David Thompson <davet@gnu.org>
|
||||
;;; Copyright © 2014, 2017, 2018 Mark H Weaver <mhw@netris.org>
|
||||
|
@ -44,6 +44,7 @@ (define-module (gnu packages guile)
|
|||
#:use-module (gnu packages flex)
|
||||
#:use-module (gnu packages gawk)
|
||||
#:use-module (gnu packages gettext)
|
||||
#:use-module (gnu packages gperf)
|
||||
#:use-module (gnu packages hurd)
|
||||
#:use-module (gnu packages libffi)
|
||||
#:use-module (gnu packages libunistring)
|
||||
|
@ -324,9 +325,6 @@ (define-public guile-3.0-latest
|
|||
;; Remove on the next rebuild cycle.
|
||||
(search-patches "guile-2.2-skip-so-test.patch")))
|
||||
|
||||
(define-public guile-next
|
||||
(deprecated-package "guile-next" guile-3.0))
|
||||
|
||||
(define-public guile-3.0/libgc-7
|
||||
;; Using libgc-7 avoid crashes that can occur, particularly when loading
|
||||
;; data in to the Guix Data Service:
|
||||
|
@ -348,6 +346,44 @@ (define-public guile-3.0/fixed
|
|||
(max-silent-time . 36000))))) ;10 hours (needed on ARM
|
||||
; when heavily loaded)
|
||||
|
||||
(define-public guile-next
|
||||
(let ((version "3.0.5")
|
||||
(revision "0")
|
||||
(commit "91547abf54d5e0795afda2781259ab8923eb527b"))
|
||||
(package
|
||||
(inherit guile-3.0)
|
||||
(name "guile-next")
|
||||
(version (git-version version revision commit))
|
||||
(source (origin
|
||||
;; The main goal here is to allow for '--with-branch'.
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://git.savannah.gnu.org/git/guile.git")
|
||||
(commit commit)))
|
||||
(sha256
|
||||
(base32
|
||||
"09i1c77h2shygylfk0av31jsc1my6zjl230b2cx6vyl58q8c0cqy"))))
|
||||
(arguments
|
||||
(substitute-keyword-arguments (package-arguments guile-3.0)
|
||||
((#:phases phases '%standard-phases)
|
||||
`(modify-phases ,phases
|
||||
(add-before 'check 'skip-failing-tests
|
||||
(lambda _
|
||||
(substitute* "test-suite/standalone/test-out-of-memory"
|
||||
(("!#") "!#\n\n(exit 77)\n"))
|
||||
(delete-file "test-suite/tests/version.test")
|
||||
#t))))))
|
||||
(native-inputs
|
||||
`(("autoconf" ,autoconf)
|
||||
("automake" ,automake)
|
||||
("libtool" ,libtool)
|
||||
("flex" ,flex)
|
||||
("gettext" ,gnu-gettext)
|
||||
("texinfo" ,texinfo)
|
||||
("gperf" ,gperf)
|
||||
,@(package-native-inputs guile-3.0)))
|
||||
(synopsis "Development version of GNU Guile"))))
|
||||
|
||||
(define* (make-guile-readline guile #:optional (name "guile-readline"))
|
||||
(package
|
||||
(name name)
|
||||
|
|
Loading…
Reference in a new issue