mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-22 18:26:43 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: guile-pfds: Apply a bug fix to hamts.sls.

Browse source 
* gnu/packages/guile-xyz.scm (guile-pfds): Remove trailing #t.
[phases]{patch-sources}: New phase.

Co-authored-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
Amirouche 2019-05-06 14:40:42 +02:00 committed by Maxim Cournoyer
parent 9e6fc36a28
commit 51194ca1e8
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 14 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -8,7 +8,7 @@
;;; Copyright © 2016, 2019, 2020, 2021 Eraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 Alex Kost <alezost@gmail.com>
;;; Copyright © 2016, 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
;;; Copyright © 2016 Amirouche <amirouche@hypermove.net>
;;; Copyright © 2016, 2021 Amirouche <amirouche@hypermove.net>
;;; Copyright © 2016, 2019 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2017 David Thompson <davet@gnu.org>
@ -888,14 +888,23 @@ (define-public guile-pfds
'(#:source-directory "src"
#:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch")
#:phases (modify-phases %standard-phases
(add-after 'unpack 'move-files-around
(add-after 'unpack 'patch-sources
;; Initially reported here:
;; https://github.com/ijp/pfds/pull/6, and merged into
;; other projects such as IronScheme (see:
;; https://github.com/IronScheme/pfds/pull/1).
(lambda _
(substitute* "hamts.sls"
(("subtrie-vector vector")
"subtrie-vector trie"))))
(add-after 'patch-sources 'move-files-around
(lambda _
;; Move files under a pfds/ directory to reflect the
;; module hierarchy.
(mkdir-p "src/pfds")
(for-each (lambda (file)
(rename-file file
(string-append "src/pfds/" file)))
(rename-file
file (string-append "src/pfds/" file)))
'("bbtrees.sls"
"deques"
"deques.sls"
@ -908,8 +917,7 @@ (define-public guile-pfds
"queues"
"queues.sls"
"sequences.sls"
"sets.sls"))
#t)))))
"sets.sls")))))))
(native-inputs
`(("guile" ,guile-3.0)))
(synopsis "Purely functional data structures for Guile")