summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2024-05-31 23:59:04 -0400
committerArne Babenhauserheide <arne_bab@web.de>2024-07-01 23:38:01 +0200
commit522f3687194f31b178f8b92d438bc89ce873eb83 (patch)
tree012d4d9c890fb0c00e1f1a5019615f986466f2f3 /module
parentb2cc237a02dcb13625885e76df28bc254a522100 (diff)
downloadguile-522f3687194f31b178f8b92d438bc89ce873eb83.tar.gz
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
Diffstat (limited to 'module')
-rw-r--r--module/ice-9/r7rs-libraries.scm4
1 files changed, 3 insertions, 1 deletions
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 ...)