[gnunet-scheme] 207/324: hat-let: Allow (dotted) variable lists with <--.

[gnunet]

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit 5e5f5d6da9b342ef5b83fee55a92aa6fd91305fa
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Aug 31 15:54:22 2021 +0200

    hat-let: Allow (dotted) variable lists with <--.
    
    * gnu/gnunet/utils/hat-let.scm
      (let^): Recognise (dotted) variable lists with <--.
---
 gnu/gnunet/utils/hat-let.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/gnunet/utils/hat-let.scm b/gnu/gnunet/utils/hat-let.scm
index 181ed5a..a2304ce 100644
--- a/gnu/gnunet/utils/hat-let.scm
+++ b/gnu/gnunet/utils/hat-let.scm
@@ -32,6 +32,7 @@
 ;;            (rnrs base)
 ;;   * (2 2): Make (! (procedure-name argument) code code* ...)
 ;;            usable.
+;;   * (2 3): Allow dotted variable lists with <--.
 
 (library (gnu gnunet utils hat-let (2 2))
   (export let^)
@@ -80,9 +81,9 @@
           (let^ (etc ...)
                 code ...))))
       ;; Assign multiple values.
-      ((: ((<-- (x ...) exp) etc ...) code ...)
+      ((: ((<-- dotted-variable-list exp) etc ...) code ...)
        (call-with-values (lambda () exp)
-        (lambda (x ...)
+        (lambda dotted-variable-list
           (let^ (etc ...) code ...))))
       ;; Tail-call into a generalised let
       ((: ((/o/ loop (x y) ...) etc ...) code ...)

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.