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.courno...@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-gu...@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 ...)
