[bug#73096] A guile package for SRFI-235.

[bug#73096] A guile package for SRFI-235.

[Yuval Langer]

[-- Attachment #1: Type: text/plain, Size: 92 bytes --]

Hi,

here's my package definition for SRFI-235.

Please review!

Many thanks,
Yuval Langer.

[-- Attachment #2: 0001-Add-guile-srfi-235.patch --]
[-- Type: text/x-patch, Size: 2468 bytes --]

From 56f2508f1bd35ae74846555f65aa0c267bcc4eaf Mon Sep 17 00:00:00 2001
Message-Id: <56f2508f1bd35ae74846555f65aa0c267bcc4eaf.1725714029.git.yuval.langer@gmail.com>
From: Yuval Langer <yuval.langer@gmail.com>
Date: Sat, 7 Sep 2024 16:00:04 +0300
Subject: [PATCH] Add guile-srfi-235.

---
 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 3bcb0e82bb..a558674989 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -4079,6 +4079,45 @@ procedures, and procedures created with it have predictable behavior when
 applied to surplus arguments.")
     (license license:expat)))
 
+(define-public guile-srfi-235
+  (let ((version "1.0.0")
+        (revision "1")
+        (commit "643a44aa9d6872962257995ecb0a31eb06a71d88"))
+    (package
+      (name "guile-srfi-235")
+      (version (git-version version revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url
+                "https://github.com/scheme-requests-for-implementation/srfi-235")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1slkcr67ad12ipkbhjdzjhbnsyvq5wi7cssvgv110fr2dy4rciwp"))))
+      (build-system guile-build-system)
+      (arguments
+       (list
+        #:phases #~(modify-phases %standard-phases
+                     (add-after 'unpack 'move-create-and-delete-files
+                       (lambda _
+                         (substitute* "srfi/235.sld"
+                           (("srfi 235")
+                            "srfi srfi-235"))
+                         (rename-file "srfi/235.sld" "srfi/srfi-235.scm"))))))
+      (native-inputs (list gnu:packages:guile:guile-3.0))
+      (home-page
+       "https://github.com/scheme-requests-for-implementation/srfi-235")
+      (synopsis "Combinators for Guile Scheme")
+      (description
+       "This SRFI contains various procedures that accept and return procedures, as
+well as a few others, drawn from an earlier version of Chicken.
+Common Lisp has a few of them too, and more come from the Standard
+Prelude from Programming Praxis.  Using these procedures helps to keep
+code terse and reduce the need for ad hoc lambdas.")
+      (license license:expat))))
+
 (define-public emacsy
   (package
     (name "emacsy")
-- 
2.30.2

[bug#73096] A guile package for SRFI-235.

[jgart via Guix-patches via]

Hi,

Can you send a v2 with a proper commit message?

See the commit history for examples.

-- 
all the best,
jgart

[bug#73096] A guile package for SRFI-235.

[Yuval Langer]

[-- Attachment #1: Type: text/plain, Size: 351 bytes --]

On Sat, Sep 7, 2024 at 10:26 PM jgart <jgart@dismail.de> wrote:
>
>
> Hi,
>
> Can you send a v2 with a proper commit message?

Sorry about that.

> See the commit history for examples.

Took from myself.

> --
> all the best,
> jgart

And again sorry for sending to you instead of the mailing list.  Not
used to debbug's process.

[-- Attachment #2: 0001-gnu-Add-guile-srfi-235.patch --]
[-- Type: text/x-patch, Size: 2534 bytes --]

From 9a1ad98df904022396a3a22b3b722209b0c1d78f Mon Sep 17 00:00:00 2001
Message-Id: <9a1ad98df904022396a3a22b3b722209b0c1d78f.1725746354.git.yuval.langer@gmail.com>
From: Yuval Langer <yuval.langer@gmail.com>
Date: Sat, 7 Sep 2024 16:00:04 +0300
Subject: [PATCH] gnu: Add guile-srfi-235.

* gnu/packages/guile-xyz.scm (guile-srfi-235): 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 3bcb0e82bb..a558674989 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -4079,6 +4079,45 @@ procedures, and procedures created with it have predictable behavior when
 applied to surplus arguments.")
     (license license:expat)))
 
+(define-public guile-srfi-235
+  (let ((version "1.0.0")
+        (revision "1")
+        (commit "643a44aa9d6872962257995ecb0a31eb06a71d88"))
+    (package
+      (name "guile-srfi-235")
+      (version (git-version version revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url
+                "https://github.com/scheme-requests-for-implementation/srfi-235")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1slkcr67ad12ipkbhjdzjhbnsyvq5wi7cssvgv110fr2dy4rciwp"))))
+      (build-system guile-build-system)
+      (arguments
+       (list
+        #:phases #~(modify-phases %standard-phases
+                     (add-after 'unpack 'move-create-and-delete-files
+                       (lambda _
+                         (substitute* "srfi/235.sld"
+                           (("srfi 235")
+                            "srfi srfi-235"))
+                         (rename-file "srfi/235.sld" "srfi/srfi-235.scm"))))))
+      (native-inputs (list gnu:packages:guile:guile-3.0))
+      (home-page
+       "https://github.com/scheme-requests-for-implementation/srfi-235")
+      (synopsis "Combinators for Guile Scheme")
+      (description
+       "This SRFI contains various procedures that accept and return procedures, as
+well as a few others, drawn from an earlier version of Chicken.
+Common Lisp has a few of them too, and more come from the Standard
+Prelude from Programming Praxis.  Using these procedures helps to keep
+code terse and reduce the need for ad hoc lambdas.")
+      (license license:expat))))
+
 (define-public emacsy
   (package
     (name "emacsy")
-- 
2.30.2

[bug#73096] A guile package for SRFI-235.

[Yuval Langer]

[-- Attachment #1: Type: text/plain, Size: 170 bytes --]

Friend (robin on Libera) just noticed I didn't remove the
gnu:packages:guile: prefix I use for my own Guix channel.  Uploading
the hopefully final version of this patch.

[-- Attachment #2: 0001-gnu-Add-guile-srfi-235.patch --]
[-- Type: text/x-patch, Size: 2515 bytes --]

From 2922975cb88444b7abfb8fe971a4eb77deab0474 Mon Sep 17 00:00:00 2001
Message-Id: <2922975cb88444b7abfb8fe971a4eb77deab0474.1725768085.git.yuval.langer@gmail.com>
From: Yuval Langer <yuval.langer@gmail.com>
Date: Sat, 7 Sep 2024 16:00:04 +0300
Subject: [PATCH] gnu: Add guile-srfi-235.

* gnu/packages/guile-xyz.scm (guile-srfi-235): 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 3bcb0e82bb..792b1c6fa8 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -4079,6 +4079,45 @@ procedures, and procedures created with it have predictable behavior when
 applied to surplus arguments.")
     (license license:expat)))
 
+(define-public guile-srfi-235
+  (let ((version "1.0.0")
+        (revision "1")
+        (commit "643a44aa9d6872962257995ecb0a31eb06a71d88"))
+    (package
+      (name "guile-srfi-235")
+      (version (git-version version revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url
+                "https://github.com/scheme-requests-for-implementation/srfi-235")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1slkcr67ad12ipkbhjdzjhbnsyvq5wi7cssvgv110fr2dy4rciwp"))))
+      (build-system guile-build-system)
+      (arguments
+       (list
+        #:phases #~(modify-phases %standard-phases
+                     (add-after 'unpack 'move-create-and-delete-files
+                       (lambda _
+                         (substitute* "srfi/235.sld"
+                           (("srfi 235")
+                            "srfi srfi-235"))
+                         (rename-file "srfi/235.sld" "srfi/srfi-235.scm"))))))
+      (native-inputs (list guile-3.0))
+      (home-page
+       "https://github.com/scheme-requests-for-implementation/srfi-235")
+      (synopsis "Combinators for Guile Scheme")
+      (description
+       "This SRFI contains various procedures that accept and return procedures, as
+well as a few others, drawn from an earlier version of Chicken.
+Common Lisp has a few of them too, and more come from the Standard
+Prelude from Programming Praxis.  Using these procedures helps to keep
+code terse and reduce the need for ad hoc lambdas.")
+      (license license:expat))))
+
 (define-public emacsy
   (package
     (name "emacsy")
-- 
2.30.2

bug#73096: A guile package for SRFI-235.

[jgart via Guix-patches via]

Applied, thanks!

I tested with the following in a REPL:

scheme@(guile-user)> ,use(srfi srfi-235)
scheme@(guile-user)> (if-procedure #t (lambda () 1) (lambda () 2))
$1 = 1
#<unspecified>
scheme@(guile-user)> (if-procedure #f (lambda () 1) (lambda () 2))
$2 = 2
#<unspecified>

-- 
all the best,
jgart