[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: gnu: guile3.0-pfds: Do rename file extensions.
From: |
guix-commits |
Subject: |
branch master updated: gnu: guile3.0-pfds: Do rename file extensions. |
Date: |
Tue, 21 Jan 2020 16:57:46 -0500 |
This is an automated email from the git hooks/post-receive script.
rekado pushed a commit to branch master
in repository guix.
The following commit(s) were added to refs/heads/master by this push:
new 0dd1e27 gnu: guile3.0-pfds: Do rename file extensions.
0dd1e27 is described below
commit 0dd1e277b125b469ee1cd10eb1f32a3423dfaab2
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Tue Jan 21 10:35:59 2020 +0100
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.
---
gnu/packages/guile-xyz.scm | 43 +++++++++++--------------------------------
1 file changed, 11 insertions(+), 32 deletions(-)
diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index e9a15ba..58fab1a 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: gnu: guile3.0-pfds: Do rename file extensions.,
guix-commits <=