diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-01-20 23:44:03 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-01-20 23:49:53 +0100 |
| commit | 77c95ee60caec530015d90aaf78107d45030691e (patch) | |
| tree | fe029843261a48497ca390dc1f37c539b0ed0d72 | |
| parent | b0b725ed40f06f65f15994ea1e41347e708131ba (diff) | |
| download | patches-77c95ee60caec530015d90aaf78107d45030691e.tar patches-77c95ee60caec530015d90aaf78107d45030691e.tar.gz | |
gnu: Add guile3.0-pfds.
* gnu/packages/guile-xyz.scm (guile3.0-pfds): New variable.
| -rw-r--r-- | gnu/packages/guile-xyz.scm | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 58271364dc..74cd67b044 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") |