[gnunet-scheme] 25/324: Extend let^

[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 5ee7c5b5ea88f650ee93677a89ab42f4e8c35b41
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Wed Nov 11 21:06:10 2020 +0100

    Extend let^
---
 gnu/gnunet/utils/hat-let.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gnu/gnunet/utils/hat-let.scm b/gnu/gnunet/utils/hat-let.scm
index 807dbab..2036c62 100644
--- a/gnu/gnunet/utils/hat-let.scm
+++ b/gnu/gnunet/utils/hat-let.scm
@@ -27,7 +27,7 @@
 ;; Brief: a combination of various binding constructs
 ;; Status: stable, exported, pure+assert
 
-(library (gnu gnunet utils hat-let (0))
+(library (gnu gnunet utils hat-let (1))
   (export let^)
   (import (rnrs base))
 
@@ -37,10 +37,10 @@
     (syntax-rules (? ! !! _ <- /o/)
       ((: () code ...)
        (let () code ...))
-      ;; if x, then return @var{esc}
-      ((: ((? x esc) etc ...) code ...)
+      ;; if x, then return @code{(begin esc esc* ...)}
+      ((: ((? x esc esc* ...) etc ...) code ...)
        (if x
-          esc
+          (begin esc esc* ...)
           (let^ (etc ...) code ...)))
       ;; Bind y to x
       ((: ((! x y) etc ...) code ...)

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