TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

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

Browse source 
* gnu/packages/guile-xyz.scm (guile3.0-pfds)[arguments]: Inherit from
guile-pfds to include file extension renaming.
This commit is contained in:
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
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -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