gnu: gauche: Update to 0.9.12

* gnu/packages/scheme.scm (gauche): Update to 0.9.12.
[source]: Project migrated to GitHub.
libatomic-ops is no longer in the Gauche source tree.
[arguments]: Renamed network test file.

Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
Robby Zambito 2022-12-10 17:27:53 -05:00 committed by 宋文武
parent e84042fdd4
commit 648b1605dd
No known key found for this signature in database
GPG key ID: D415BF253B515976

View file

@ -19,6 +19,7 @@
;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com> ;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com>
;;; Copyright © 2022 Morgan Smith <Morgan.J.Smith@outlook.com> ;;; Copyright © 2022 Morgan Smith <Morgan.J.Smith@outlook.com>
;;; Copyright © 2022 jgart <jgart@dismail.de> ;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2022 Robby Zambito <contact@robbyzambito.me>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -887,21 +888,17 @@ (define-public femtolisp
(define-public gauche (define-public gauche
(package (package
(name "gauche") (name "gauche")
(version "0.9.10") (version "0.9.12")
(home-page "https://practical-scheme.net/gauche/index.html") (home-page "https://practical-scheme.net/gauche/index.html")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
"mirror://sourceforge/gauche/Gauche/Gauche-" "https://github.com/shirok/Gauche/releases/download/release"
version ".tgz")) (string-replace-substring version "." "_")
"/Gauche-" version ".tgz"))
(sha256 (sha256
(base32 "0ci57ak5cp3lkmfy3nh50hifh8nbg58hh6r18asq0rn5mqfxyf8g")) (base32 "05xnym1phg8i14bacip5d0d3v0gc1nn5mgayd5hnda873f969bml"))))
(modules '((guix build utils)))
(snippet '(begin
;; Remove libatomic-ops.
(delete-file-recursively "gc/libatomic_ops")
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
(list libatomic-ops slib zlib)) (list libatomic-ops slib zlib))
@ -932,8 +929,8 @@ (define-public gauche
(add-before 'check 'patch-network-tests (add-before 'check 'patch-network-tests
;; Remove net checks. ;; Remove net checks.
(lambda _ (lambda _
(delete-file "ext/net/test.scm") (delete-file "test/net.scm")
(invoke "touch" "ext/net/test.scm") (invoke "touch" "test/net.scm")
#t)) #t))
(add-after 'install 'install-docs (add-after 'install 'install-docs
(lambda _ (lambda _