[Guile-commits] branch main updated: bug#71304: [PATCH] Add support for 'else' clause in R7RS cond-expand.

[Arne Babenhauserheide]

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

arnebab pushed a commit to branch main
in repository guile.

The following commit(s) were added to refs/heads/main by this push:
     new 522f36871 bug#71304: [PATCH] Add support for 'else' clause in R7RS 
cond-expand.
522f36871 is described below

commit 522f3687194f31b178f8b92d438bc89ce873eb83
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Fri May 31 23:59:04 2024 -0400

    bug#71304: [PATCH] Add support for 'else' clause in R7RS cond-expand.
    
    * module/ice-9/r7rs-libraries.scm (define-library)
    <handle-cond-expand>: Add a pattern to match an 'else' clause.
    
    Series-to: bug-guile@gnu.org
---
 module/ice-9/r7rs-libraries.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/module/ice-9/r7rs-libraries.scm b/module/ice-9/r7rs-libraries.scm
index 63a300a26..86b3dee24 100644
--- a/module/ice-9/r7rs-libraries.scm
+++ b/module/ice-9/r7rs-libraries.scm
@@ -64,8 +64,10 @@
            ;; FIXME: R7RS (features) isn't quite the same as
            ;; %cond-expand-features; see scheme/base.scm.
            (memq (syntax->datum #'id) %cond-expand-features))))
-      (syntax-case clauses ()
+      (syntax-case clauses (else)
         (() #'())  ; R7RS says this is not specified :-/
+        (((else decl ...))
+         #'(decl ...))
         (((test decl ...) . clauses)
          (if (has-req? #'test)
              #'(decl ...)