me
/
guix
Archived
1
0
Fork 0

gnu: guile3.0-pfds: Do rename file extensions.

* gnu/packages/guile-xyz.scm (guile3.0-pfds)[arguments]: Inherit from
guile-pfds to include file extension renaming.
master
Ricardo Wurmus 2020-01-21 10:35:59 +01:00
parent 79e074ea10
commit 0dd1e277b1
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 11 additions and 32 deletions

View File

@ -773,38 +773,17 @@ Vicare Scheme and IronScheme. Right now it contains:
(name "guile3.0-pfds")
(native-inputs `(("guile" ,guile-3.0)))
(arguments
'(#:source-directory "src"
#:compile-flags '("--r6rs")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'move-files-around
(lambda _
;; See bug #39210.
(substitute* '("fingertrees.sls"
"queues/private/condition.sls"
"deques/private/condition.sls")
(("&assertion") "&violation"))
;; 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)))
'("bbtrees.sls"
"deques"
"deques.sls"
"dlists.sls"
"fingertrees.sls"
"hamts.sls"
"heaps.sls"
"private"
"psqs.sls"
"queues"
"queues.sls"
"sequences.sls"
"sets.sls"))
#t)))))))
(substitute-keyword-arguments (package-arguments guile-pfds)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'work-around-guile-bug
(lambda _
;; See bug #39210.
(substitute* '("fingertrees.sls"
"queues/private/condition.sls"
"deques/private/condition.sls")
(("&assertion") "&violation"))
#t))))))))
(define-public guile-aa-tree
(package