[bug#35518] fix guile-pfds bug
diff mbox series

Message ID 053f858c51866da5ffe2ed2b85f58d9d@hyper.dev
State New
Headers show
Series
  • [bug#35518] fix guile-pfds bug
Related show

Checks

Context Check Description
cbaines/applying patch fail Apply failed

Commit Message

Amirouche May 6, 2019, 12:42 p.m. UTC
On 2019-05-06 13:09, Ricardo Wurmus wrote:
> amirouche@hyper.dev writes:
> 
>> Forgo the first, this patch is not perfect because It doesn't force an
>> update.
> 
> The attached patch is more than 15MB in size.  I haven’t looked at it
> but I guess that’s not correct.

I am not sure which patch you are referring to.

Here is another patch. I followed the "Submitting Patches" section
from the manual.

Comments

Ricardo Wurmus May 6, 2019, 1:10 p.m. UTC | #1
amirouche@hyper.dev writes:

> On 2019-05-06 13:09, Ricardo Wurmus wrote:
>> amirouche@hyper.dev writes:
>>
>>> Forgo the first, this patch is not perfect because It doesn't force an
>>> update.
>>
>> The attached patch is more than 15MB in size.  I haven’t looked at it
>> but I guess that’s not correct.
>
> I am not sure which patch you are referring to.

The one you attached in the message with Message-Id
<efe8b23d1011887a36f65620fd24e514@hyper.dev>

--
Ricardo

Patch
diff mbox series

From 50f143b119d42042009fb94e5d6a74d47740f6d2 Mon Sep 17 00:00:00 2001
From: Amirouche <amirouche+dev@hyper.dev>
Date: Mon, 6 May 2019 14:40:42 +0200
Subject: [PATCH] gnu: guile-pfds bugfix

- gnu/packages/guile-xyz.scm(guile-pfds)[version]: add revision 1
- gnu/packages/guile-xyz.scm(guile-pfds)[arguments]: New phase 'patch'
---
 gnu/packages/guile-xyz.scm | 121 ++++++++++++++++++++-----------------
 1 file changed, 65 insertions(+), 56 deletions(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 03fd63837e..f80cd72442 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -8,7 +8,7 @@ 
 ;;; Copyright © 2016 Eraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2016, 2017 Alex Kost <alezost@gmail.com>
 ;;; Copyright © 2016, 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
-;;; Copyright © 2016 Amirouche <amirouche@hypermove.net>
+;;; Copyright © 2016, 2019 Amirouche <amirouche@hypermove.net>
 ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
 ;;; Copyright © 2017 David Thompson <davet@gnu.org>
@@ -624,60 +624,69 @@  using Guile's foreign function interface.")
     (license license:gpl3+)))
 
 (define-public guile-pfds
-  (package
-    (name "guile-pfds")
-    (version "0.3")
-    (home-page "https://github.com/ijp/pfds")
-    (source (origin
-              (method git-fetch)
-              (uri (git-reference
-                    (url home-page)
-                    (commit (string-append "v" version))))
-              (sha256
-               (base32
-                "19y33wg94pf0n98dkfqd1zbw93fgky4sawxsxl6s3vyqwl0yi5vh"))
-              (file-name (string-append name "-" version "-checkout"))))
-    (build-system guile-build-system)
-    (arguments
-     '(#:source-directory "src"
-       #:phases (modify-phases %standard-phases
-                  (add-after 'unpack 'move-files-around
-                    (lambda _
-                      ;; 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"))
-
-                      ;; In Guile <= 2.2.4, there's no way to tell 'guild
-                      ;; compile' to accept the ".sls" extension.  So...
-                      (for-each (lambda (file)
-                                  (rename-file file
-                                               (string-append
-                                                (string-drop-right file 4)
-                                                ".scm")))
-                                (find-files "." "\\.sls$"))
-                      #t)))))
-    (native-inputs
-     `(("guile" ,guile-2.2)))
-    (synopsis "Purely functional data structures for Guile")
-    (description
-     "This package provides purely functional data structures written in R6RS
+  (let ((commit "454033f82dac7c0b0ea9e84eed1e8ed316487c78")
+        (revision "1"))
+    (package
+      (name "guile-pfds")
+      (version (git-version "0.3" revision commit))
+      (home-page "https://github.com/ijp/pfds")
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url home-page)
+                      (commit commit)))
+                (sha256
+                 (base32
+                  "19y33wg94pf0n98dkfqd1zbw93fgky4sawxsxl6s3vyqwl0yi5vh"))
+                (file-name (git-file-name name version))))
+      (build-system guile-build-system)
+      (arguments
+       '(#:source-directory "src"
+         #:phases (modify-phases %standard-phases
+                    (add-after 'unpack 'patch
+                      ;; note: upstream is not responsive.
+                      (lambda _
+                        (substitute* "hamts.sls"
+                          (("subtrie-vector vector")
+                           "subtrie-vector trie"))
+                        #t))
+                    (add-after 'patch 'move-files-around
+                      (lambda _
+                        ;; 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"))
+
+                        ;; In Guile <= 2.2.4, there's no way to tell 'guild
+                        ;; compile' to accept the ".sls" extension.  So...
+                        (for-each (lambda (file)
+                                    (rename-file file
+                                                 (string-append
+                                                  (string-drop-right file 4)
+                                                  ".scm")))
+                                  (find-files "." "\\.sls$"))
+                        #t)))))
+      (native-inputs
+       `(("guile" ,guile-2.2)))
+      (synopsis "Purely functional data structures for Guile")
+      (description
+       "This package provides purely functional data structures written in R6RS
 Scheme and compiled for Guile.  It has been tested with Racket, Guile 2,
 Vicare Scheme and IronScheme.  Right now it contains:
 
@@ -693,7 +702,7 @@  Vicare Scheme and IronScheme.  Right now it contains:
 @item heaps
 @item hash array mapped tries (HAMTs).
 @end itemize\n")
-    (license license:bsd-3)))
+      (license license:bsd-3))))
 
 (define-public guile-aa-tree
   (package
-- 
2.19.1