ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: gauche: Update to 0.9.9.

Browse source 
* gnu/packages/scheme.scm (gauche): Update to 0.9.9.
This commit is contained in:
Tobias Geerinckx-Rice 2020-01-15 00:33:46 +01:00
parent 91815e8dc2
commit 3e8867196c
No known key found for this signature in database
GPG key ID: D889B0F018C5493C
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/packages/scheme.scm
View file

@ -1001,7 +1001,7 @@ (define-public femtolisp
(define-public gauche (define-public gauche
(package (package
(name "gauche") (name "gauche")
(version "0.9.7") (version "0.9.9")
(home-page "http://practical-scheme.net/gauche/index.html") (home-page "http://practical-scheme.net/gauche/index.html")
(source (source
(origin (origin
@ -1010,11 +1010,10 @@ (define-public gauche
"mirror://sourceforge/gauche/Gauche/Gauche-" "mirror://sourceforge/gauche/Gauche/Gauche-"
version ".tgz")) version ".tgz"))
(sha256 (sha256
(base32 (base32 "1yzpszhw52vkpr65r5d4khf3489mnnvnw58dd2wsvvx7499k5aac"))
"181nycikma0rwrb1h6mi3kys11f8628pq8g5r3fg5hiz5sabscrd"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet '(begin (snippet '(begin
;; Remove libatomic-ops ;; Remove libatomic-ops.
(delete-file-recursively "gc/libatomic_ops") (delete-file-recursively "gc/libatomic_ops")
#t)))) #t))))
(build-system gnu-build-system) (build-system gnu-build-system)
@ -1023,13 +1022,13 @@ (define-public gauche
("zlib" ,zlib))) ("zlib" ,zlib)))
(native-inputs (native-inputs
`(("texinfo" ,texinfo) `(("texinfo" ,texinfo)
("openssl" ,openssl) ; needed for tests ("openssl" ,openssl) ; needed for tests
("pkg-config" ,pkg-config))) ; needed to find external libatomic-ops ("pkg-config" ,pkg-config))) ; needed to find external libatomic-ops
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(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* '("configure"
"test/www.scm" "test/www.scm"
@ -1046,14 +1045,14 @@ (define-public gauche
(invoke "make" "info")) (invoke "make" "info"))
#t)) #t))
(add-before 'check 'patch-normalize-test (add-before 'check 'patch-normalize-test
;; neutralize sys-normalize-pathname test as it relies on ;; Neutralize sys-normalize-pathname test as it relies on
;; the home directory; (setenv "HOME" xx) isn't enough) ;; the home directory; (setenv "HOME" xx) isn't enough).
(lambda _ (lambda _
(substitute* "test/system.scm" (substitute* "test/system.scm"
(("~/abc") "//abc")) (("~/abc") "//abc"))
#t)) #t))
(add-before 'check 'patch-network-tests (add-before 'check 'patch-network-tests
;; remove net checks ;; Remove net checks.
(lambda _ (lambda _
(substitute* "ext/Makefile" (substitute* "ext/Makefile"
(("binary net termios") "binary termios")) (("binary net termios") "binary termios"))