[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: gnu: Add guile3.0-pfds.
From: |
guix-commits |
Subject: |
03/03: gnu: Add guile3.0-pfds. |
Date: |
Mon, 20 Jan 2020 17:50:58 -0500 (EST) |
rekado pushed a commit to branch master
in repository guix.
commit 77c95ee60caec530015d90aaf78107d45030691e
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Mon Jan 20 23:44:03 2020 +0100
gnu: Add guile3.0-pfds.
* gnu/packages/guile-xyz.scm (guile3.0-pfds): New variable.
---
gnu/packages/guile-xyz.scm | 39 +++++++++++++++++++++++++++++++++++++++
1 file changed, 39 insertions(+)
diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 5827136..74cd67b 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -767,6 +767,45 @@ Vicare Scheme and IronScheme. Right now it contains:
@end itemize\n")
(license license:bsd-3)))
+(define-public guile3.0-pfds
+ (package
+ (inherit guile-pfds)
+ (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)))))))
+
(define-public guile-aa-tree
(package
(name "guile-aa-tree")