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.
This commit is contained in:
parent
79e074ea10
commit
0dd1e277b1
|
@ -773,38 +773,17 @@ (define-public guile3.0-pfds
|
||||||
(name "guile3.0-pfds")
|
(name "guile3.0-pfds")
|
||||||
(native-inputs `(("guile" ,guile-3.0)))
|
(native-inputs `(("guile" ,guile-3.0)))
|
||||||
(arguments
|
(arguments
|
||||||
'(#:source-directory "src"
|
(substitute-keyword-arguments (package-arguments guile-pfds)
|
||||||
#:compile-flags '("--r6rs")
|
((#:phases phases)
|
||||||
#:phases
|
`(modify-phases ,phases
|
||||||
(modify-phases %standard-phases
|
(add-after 'unpack 'work-around-guile-bug
|
||||||
(add-after 'unpack 'move-files-around
|
(lambda _
|
||||||
(lambda _
|
;; See bug #39210.
|
||||||
;; See bug #39210.
|
(substitute* '("fingertrees.sls"
|
||||||
(substitute* '("fingertrees.sls"
|
"queues/private/condition.sls"
|
||||||
"queues/private/condition.sls"
|
"deques/private/condition.sls")
|
||||||
"deques/private/condition.sls")
|
(("&assertion") "&violation"))
|
||||||
(("&assertion") "&violation"))
|
#t))))))))
|
||||||
;; 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)))))))
|
|
||||||
|
|
||||||
(define-public guile-aa-tree
|
(define-public guile-aa-tree
|
||||||
(package
|
(package
|
||||||
|
|
Loading…
Reference in a new issue