ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-13 22:50:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: gauche: Update to 0.9.10.

Browse source 
* gnu/packages/scheme.scm (gauche): Update to 0.9.10.
[arguments]: Adjust file list in custom 'patch-/bin/sh phase. Remove
'patch-normalize-test phase. Adjust 'patch-network-tests phase.

Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
This commit is contained in:
Martin Becze 2020-12-23 03:35:34 -06:00 committed by Efraim Flashner
parent 91d5424960
commit eb0c1e7462
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 6 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
gnu/packages/scheme.scm
View file

@ -1010,7 +1010,7 @@ (define-public femtolisp
(define-public gauche (define-public gauche
(package (package
(name "gauche") (name "gauche")
(version "0.9.9") (version "0.9.10")
(home-page "https://practical-scheme.net/gauche/index.html") (home-page "https://practical-scheme.net/gauche/index.html")
(source (source
(origin (origin
@ -1019,7 +1019,7 @@ (define-public gauche
"mirror://sourceforge/gauche/Gauche/Gauche-" "mirror://sourceforge/gauche/Gauche/Gauche-"
version ".tgz")) version ".tgz"))
(sha256 (sha256
(base32 "1yzpszhw52vkpr65r5d4khf3489mnnvnw58dd2wsvvx7499k5aac")) (base32 "0ci57ak5cp3lkmfy3nh50hifh8nbg58hh6r18asq0rn5mqfxyf8g"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet '(begin (snippet '(begin
;; Remove libatomic-ops. ;; Remove libatomic-ops.
@ -1039,13 +1039,10 @@ (define-public gauche
(add-after 'unpack 'patch-/bin/sh (add-after 'unpack 'patch-/bin/sh
;; Needed only for tests. ;; Needed only for tests.
(lambda _ (lambda _
(substitute* '("configure" (substitute* '("test/www.scm"
"test/www.scm"
"ext/tls/test.scm" "ext/tls/test.scm"
"gc/configure"
"lib/gauche/configure.scm"
"lib/gauche/package/util.scm" "lib/gauche/package/util.scm"
"lib/gauche/process.scm") "libsrc/gauche/process.scm")
(("/bin/sh") (which "sh"))) (("/bin/sh") (which "sh")))
#t)) #t))
(add-after 'build 'build-doc (add-after 'build 'build-doc
@ -1053,18 +1050,11 @@ (define-public gauche
(with-directory-excursion "doc" (with-directory-excursion "doc"
(invoke "make" "info")) (invoke "make" "info"))
#t)) #t))
(add-before 'check 'patch-normalize-test
;; Neutralize sys-normalize-pathname test as it relies on
;; the home directory; (setenv "HOME" xx) isn't enough).
(lambda _
(substitute* "test/system.scm"
(("~/abc") "//abc"))
#t))
(add-before 'check 'patch-network-tests (add-before 'check 'patch-network-tests
;; Remove net checks. ;; Remove net checks.
(lambda _ (lambda _
(substitute* "ext/Makefile" (delete-file "ext/net/test.scm")
(("binary net termios") "binary termios")) (invoke "touch" "ext/net/test.scm")
#t)) #t))
(add-after 'install 'install-docs (add-after 'install 'install-docs
(lambda _ (lambda _