[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] Add support for 'else' clause in R7RS cond-expand.
From: |
Maxim Cournoyer |
Subject: |
[PATCH] Add support for 'else' clause in R7RS cond-expand. |
Date: |
Fri, 24 Nov 2023 21:22:35 -0500 |
* module/ice-9/r7rs-libraries.scm (define-library)
<handle-cond-expand>: Add a pattern to match an 'else' clause.
---
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 ...)
base-commit: d579848cb5d65440af5afd9c8968628665554c22
--
2.41.0
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [PATCH] Add support for 'else' clause in R7RS cond-expand.,
Maxim Cournoyer <=